how to remove everything before last slash in perl?

mipatel has asked for the wisdom of the Perl Monks concerning the following question:

i have a script that generates the output with the fullpath of the directory.

 Example
  y:/home/lib/directory/book
  y:/home/lib/directory/book_manager
  y:/home/lib/directory/piano_book
[download]

i want the output as

book
book_manager
piano book
[download]

is there any regex for this guys? i tried doing this but it still leaves the slash at the end $output =~ s{.*(/)}{$1};