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

__END__
piano_book