my $path = 'c:\\folder1\\filename.doc';
my ($file) = ($path =~ /([^\\]*)$/);