perl -wl
$name = 'D:\my\path\to\a\file.txt';

print $name;

$name =~ m{.*([\w-]+)} ; print $1;
$name =~ m{ ( [^/\\:]+ )$ }x; print $1;

^D
D:\my\path\to\a\file.txt
t
file.txt