On Thu, 14 Jun 2007 19:11:18 GMT, "John W. Krahn" <dummy / example.com>
wrote:

>Using $_ instead of the copy in $file:
>
>         return if !-f || !/^\S+_\d{3}/;

Or (IMHO more clearly):

  return unless -f and /^\S+_\d{3}/;


Michele
-- 
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,