Endziel im Pfad behaltem, rest löschen.

[Beat]

if($pfad=~m~/([^/]+)$~){
  my $alles_rechts_vom_letzten_slash = $1;
}else{
  print 'moep!',"\n";
}

oder - wenn du die variable $path aendern willst -:

$pfad=~s~^.*/([^/]+)$~$1~;

Was machst du damit?
http://domain.tld/pfad/page.html?1/2/3/4
oder
http://domain.tld/pfad/page.html#fragment
Fragezeichen