Select Code to Download

my $somestring = "y:/home/lib/directory/piano_book";
($somestring) = $somestring =~ m#([^/]+)$#;
...

__END__
piano_book

my $somestring = "y:/home/lib/directory/piano_book";
my $idx = rindex($somestring, "/");
$somestring = substr($somestring, $idx+1);
print $somestring;