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'