#!/usr/bin/perl
use strict;
use warnings;

print "Drop input file in console\n";
chomp (my $file = <STDIN>);
$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>;

##</code><code>##

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