in reply to Re: how to remove everything before last slash in perl?
in thread how to remove everything before last slash in perl?

dir have basename too

$ perl -MPath::Class -le " print dir($_)->basename for @ARGV" ro/sham/ +bo ono/mato/poeia otorhinolaryngology bo poeia otorhinolaryngology