Or without the added dependency, try this untested string substitution instead:

$fn = $fqfn = $_;  # fully qualified file name
$fn ~= s/^.*\\//;  # let the greediness of regex's find
                   # the last backslash for you
                   
print "\n$fqfn\n$fn\n";
[download]

-- Hugh