$testString = "/usr/home/december/public_html/experiments/html/files/blëh.txt";
$fileAsked = $ENV{'PATH_TRANSLATED'};
print "Trying with: $testString\n";
print "Trying with: $fileAsked\n";
print "VALID1\n" if ($testString =~ /^([\w\s\/.]+)$/);
print "VALID2\n" if ($fileAsked =~ /^([\w\s\/.]+)$/);
print "SUCCEEDED1\n" if (utf8::upgrade($testString));
print "SUCCEEDED2\n" if (utf8::upgrade($fileAsked));
print "VALID3\n" if ($testString =~ /^([\w\s\/.]+)$/);
print "VALID4\n" if ($fileAsked =~ /^([\w\s\/.]+)$/);