$dna = 'cggcatgcaatattcc';
if ($dna =~ /ca*[gt]at*/) {
	print $&;
}