===========================================================

@char126 = (1..126);
$r = 0;
@mykeys = ();
foreach $key (@char126)
{
    $keyvalue = chr($key);
    $keyvalue = quotemeta($keyvalue);
    $mykeys[$r] = $keyvalue;
    $r++;
}

$mykeys = join ("|", @mykeys);

$line = "This is search line some text some text Ä Å some text some text";

       while ($line !~s#$mykeys##)
       {
            $col = length($`);
            print "Line: $. Col. $col unknown entity - $&\n";
       }