Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl;

my $str = 'G_I1E2_GTGGAG^303CTGgacgCCCTGC_I2E3_TACA';
say for map s/[^ACGT]//gr, split 'gacg', $str;
  2. or download this
    GGTGGAGCTG
CCCTGCTACA
  3. or download this
    say $str =~ s/gacg/\n/r =~ /[ACGT\n]/g;