in reply to Re: How to replace the cut command from cshell in Perl
in thread How to replace the cut command from cshell in Perl

or:
@parts = split(/\//);
$file1 = pop @parts;

[download]
in case the parts might be useful later, but YMMV (may want to chomp if there's a \n on there) - not wildly recommended either.

a

In Section Seekers of Perl Wisdom