DB<7> print join "\n", map {s/^.*\/(.+)/$1/r} grep -M $_<50, glob ("Old_PL_programs/*.*"); ack_nomem.pl fringe.pl khalou2.pl