my $file = 'c:\some\win32\path\mydir\file.txt';
my $path = 'c:\some\win32\path';

(my $file_nopath_noext = $file) =~ s/\Q$path\E\\(.*)\.txt/$1/;
print $file_nopath_noext."\n";