<![CDATA[
#!perl -w
# Concatenating DNA
# Store two DNA fragments into two variables called $DNA1 and $DNA2
my $DNA1 = 'ACGGGAGGACGGGAAAATTACTACGGCATTAGC';
my $DNA2 = 'ATAGTGCCGTGAGAGTGATGTAGTA';
# Print the DNA onto the screen
print "Here are the original two DNA fragments:\n\n";
print_dna($DNA1);
print_dna($DNA2);
print "\nHere is the two concatenated DNA fragments:\n\n";
print_dna( concatenate($DNA1, $DNA2) );
# Successful exit
exit(0);
# Concatenate the DNA fragments Using "string interpolation"
sub concatenate {
my ($dna1, $dna2) = @_;
my $dna3 = $dna1 . $dna2;
return $dna3;
}
# sub to print the DNA onto the screen
sub print_dna {
my $dna = shift;
print $dna,"\n";
}
]]>