Use File::Basename, it is platform independent

use File::Basename qw(basename dirname);

my $path = '/usr/local/bin/perl';

my $file = basename $path;  # $file eq 'perl'
my $dir = dirname $path;    # $dir eq '/usr/local/bin'
[download]

If you really must do it yourself then

my ($dir, $file) = $path =~ m{^(?:(.*)/)?([^/]+)$}x;
[download]

See why I recommend File::Basename?