while (<"/export/home/usps_edi/*pl">) 
{ -f $_ && print "ok\n";}'