in reply to RegEx and Packaging Name Problem

Also, your regular expression is wrong and it does not need to be in a while loop if it's just one long string.
print "Match found\n" if $dna1 =~ /\sCA[ACT]TC/g;

Thanks,
Dru

Perl, the Leatherman of Programming languages. - qazwart