my $file = $filename; $file =~ s![\\/]$!!;