Help for this page

Select Code to Download


  1. or download this
    print 'ACGT' | '    ';;
acgt
  2. or download this
    $s = 'GGTACACAGAAGCCAAAGCAGGCTCCAGGCTCTGAGCTGTCAGCACAGAGACCGAT';;
$m = 'GGTNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNT';;
...

print $s | $mm;;
GGTacacagaagccaaagcaggctccaggctctgagctgtcagcacagagaccgaT
  3. or download this
    #! perl -slw
use strict;
...
}
close SEQ;
close MASK;