my $filepath = 'c:\somedir\file.ext'
##</code><code>##

$filename eq 'file.ext'
##</code><code>##

$filepath =~ /([\w|\.]*)$/;
my $filename = $1;
##</code><code>##

$filepath =~ /([^\\|^\/]*)$/;