The easiest way is File::Basename.

But maybe you want to show us what code you already wrote and how it fails for you?

G'day Sunil,

As already pointed out, your unformatted data is problematic; however, you may find that split is sufficient for your needs.

$ perl -le 'print +(split /\//)[-1] for ("/ba/mn/first one", "/ba/mn/s
+econd")'
first one
second
[download]

$ perl -l -
use Path::Tiny qw/ path /;
print path( '/anything/you/want' )->basename;
__END__
want
[download]

Given a constant prefix and no terminating suffix (i.e., terminates at end of string) (5.10+ needed for \K):

c:\@Work\Perl\monks>perl -wMstrict -le
"use 5.010;
 ;;
 my @strings = ('/ba/mn/first one', '/ba/mn/second', '/ba/mn/third');
 ;;
 my $prefix = qr{ /ba/mn/ }xms;
 ;;
 for my $s (@strings) {
   printf qq{string '$s' -> parts };
   my @parts = $s =~ m{ $prefix \K .* }xmsg;
   printf qq{'$_' } for @parts;
   print '';
   }
"
string '/ba/mn/first one' -> parts 'first one'
string '/ba/mn/second' -> parts 'second'
string '/ba/mn/third' -> parts 'third'
[download]