#!/usr/bin/perl

# http://perlmonks.org/?node_id=1213294

use strict;
use warnings;

$_ = 'TTCAGGTGTTTGCAACTGCGTTTTATTGCAAGAAAGAGTGGAGGGGTTTCCATGGGGCCCACCT
+CACAACCCACTC TTCACCCCCAAAATCACGCAGGGATCGGACTCAGGAAAGGGAAGCATCTGTGTGTT
+GCATACGAGCCCTTCCTGTACTTACTTCTTTCACAGCAGGGAAGG AAGAGGGAAGAGGCAGCTGTGGA
+GAGGATCAGGTTGCGGGAGGTGGGTATCTCGCTGCTCTGACCTTACGTACAGTCCTCCACAGAAGCATC
+AAAGTGGACT GGCACATATCGGCTCCCTTCACAGGCCACAATCATCTGTCTCTCCTTCGGGCTGGTCC
+GGTATCCAC';

print "$_\n\n" for /ATG.*?(?:TAA|TAG|TGA)/g;
[download]