Select Code to Download

#!/usr/bin/perl
use strict;
...
$file =~ s/ *["']?([^"']*)["']? *$/$1/;        # strip whitespace and 
+quotes
if (-e "$file") {print "\nFile found, everything is fine.\nFile:>$file
+<"} else {print "\nOoops, file not found.\nFile: >$file<"}
<STDIN>;

Enter file path> í.txt
$qfn="\241.txt"
open í.txt: No such file or directory