Help for this page

Select Code to Download


  1. or download this
    #! perl
use strict;
...
my $s = 'XYX_WT_7_25h_Trimmed_75.SAM';

print $1 if $s =~ / ( _ [^_]+ _ [^_]+ ) $ /x;
  2. or download this
    23:31 >perl 1687_SoPW.pl
_Trimmed_75.SAM
23:32 >