Re^4: 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];
}
[download]

(: Life is short enjoy it :)

Comment on Re^4: How to search string in all files in directory Download Code