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