WC -Sx- Jones wrote: push @targets, (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
-f _ && /^Makefile\.PL\z/s && sprintf("%s",$name);
Or ...
push @targets, (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) && -f _ && /^.*\.t.*gz\z/s && sprintf("%s",$name);
HTH; -Sx-
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>