Help for this page

Select Code to Download


  1. or download this
    my @set = qw (AAAAAT ATCGAT TTTTTG GCCCCC GTGGGG);
    my $lim = 0.75;
    ...
              ((tr/G//)/$len < $lim)    ) or $_ = '' } @set;
    
    print "AFTER:",scalar(@set),"\n";
    
  2. or download this
    $VAR1 = '';
    $VAR2 = 'ATCGAT';
    $VAR3 = '';
    $VAR4 = '';
    $VAR5 = '';