$_ = basename( $_ );

##</code><code>##

$_ =~ s/.*[\/\\](.*)/$1/;