c:\@Work\Perl\monks>perl -wMstrict -le
"my $inputseq = 'AATGGTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGATCTAA';
 print qq{'$inputseq'};
 ;;
 my $regex = '\w+(ATG\w*T(AG|AA|GA))\w+';
 $inputseq =~ /($regex)/g;
 print qq{'$1'};
"
'AATGGTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGATCTAA'
'AATGGTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGATCTAA'