in reply to Question about grep

Try File::Basename

Scott

In Section Seekers of Perl Wisdom