Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
my $sequence = 'AATGGTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGATCTAACGAA'
+;

$sequence =~ /(ATG.*?(?:TAG|TAA|TGA))(??{print "$1\n"})/;
  2. or download this
    ATGGTTTCTCCCATCTCTCCATCGGCATAA
ATGGTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGA
ATGGTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGATCTAA
ATGATCTAA