ls saveme | perl -n -e ' while ( <> ) { chomp; tr/\/*@//d; # remove shell aliased junk from ls open(F,$_); print eval{(lstat(F))[9]},"\n"; close(F); }'