if ($filepath =~ /([^\/\\]+)$/) {
    $file = $1;
} else {
    $file = $filepath;
}

##</code><code>##

$filepath = 'c:\windows\foo\bar\quux\baz.txt';