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

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