my $str = 'c:\dir\subdir\filename.ext';

my $filename = (split/\\/, $str)[-1];