$name =~ s/^.*\\//;


##</code><code>##

$name =~ s/^[A-Z]:\\.*\\//;