$a = "foo/bar/baz";
my $pos = my $save_pos = 0;
do {
   $pos = index($a, "/", $pos + 1 );
   $save_pos = $pos if $pos != -1;
} while ($pos != -1);

print substr($a, $save_pos + 1);