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

__END__
piano_book

##</code><code>##

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