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);    
}'

##</code><code>##

$ls saveme | perl -n -e '
print "file is: ". <>,"\n";
'
file is: 

$ls saveme | perl -n -e '
my @files = <>;print "file: @files\n";
'
file: