if( $string =~ m![/\\]([^/\\]+)$! ) {
    print $1, "\n";
}