in reply to How to replace the cut command from cshell in Perl

Have a look at File::Basename.
  • Comment on Re: How to replace the cut command from cshell in Perl