$dna = 'cggcatgcaatattcc';
print "DNA Sequence: $dna\n";
print "Pattern to match: c.{2}\n";
while ($dna =~ /c.{2}/g) {
	print "Matched pattern = ", $&," ending at position ", pos($dna)-1, "\n";
}