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