in reply to RegEx and Packaging Name Problem

You are missing a semicolon ';'. 

my $dna1 = "AACAGCACGGCAACGCTGTGCCTTGGGCACCATGCAGTACCAAACGGAACGATAGTGA
+AAACAATCAC AATCGCGGGTTTCATAGAAAATGGTTGGGAAGGAATGGTGGATGGTTGGTACGGTTT"
+ <<<<< MISSING ';'!!
...

[download]

In Section Seekers of Perl Wisdom