http://www.perlmonks.org?node_id=1007642


in reply to perl script to print just directory names

One way is to use File::Basename::basename:
use File::Basename; # in your loop... print basename($file);

See also: