$dna = 'cggcatgcaatattcc';
if ($dna =~ /(cg*(.*)ca*)(ta)/) {
	print "Entire match = ", $&, "\n";
	print "First pattern = ", $1, "\n"; 
	print "Second pattern = ", $2, "\n"; 
	print "Third pattern = ", $3, "\n";
}