#Concatenating DNA using interpolation, dot and direct method
#First store 2 DNA fragments into two variables $DNA1 and $DNA2
$DNA1 = 'ACGGGAGGACGGGAAAATTACTACGGCATTAGC';
$DNA2 = 'ATAGTGCCGTGAGAGTGATGTAGTA';
#Print DNA 
print "The two original DNA fragments are:\n\n";
print $DNA1, "\n";
print $DNA2, "\n\n";
#Concaatenate the DNA fragments into third variable and print them using string interpolation"
$DNA3 = "$DNA1$DNA2";
print"The concatenation of first two fragments is : \n\n";
print "$DNA3\n\n";

#Concatenate using dot operator

$DNA3 = $DNA1 . $DNA2;
print"The concatenation of first two fragments using DOT operator is : \n\n";
print "$DNA3\n\n";

#Concatenate without using third variable
print"The concatenation of first two fragments with direct method is : \n\n";
print $DNA1, $DNA2, "\n";
exit;