print "Match found\n" if $dna1 =~ /\sCA[ACT]TC/g;