http://qs1969.pair.com?node_id=729700


in reply to Re^3: How to search string in all files in directory
in thread How to search string in all files in directory

I forget to add this function at the beginning
sub trim # (@NonTrimmedArray) { my @out=@_; for (@out) { s/^\s+//; s/\s+$//; } return wantarray ? @out : $out[0]; }
(: Life is short enjoy it :)