Help for this page
#! perl use strict; ... my $s = 'XYX_WT_7_25h_Trimmed_75.SAM'; print $1 if $s =~ / ( _ [^_]+ _ [^_]+ ) $ /x;
23:31 >perl 1687_SoPW.pl _Trimmed_75.SAM 23:32 >