That will only remove the non-ASCII characters that are in iso-latin-1, a very small portion of non-ASCII characters. Fix:

# Replace with space
$myline =~ s/[^\x00-\x7F]/ /g;

# Delete character
$myline =~ tr/\x00-\x7F//cd;
$myline =~ s/[^\x00-\x7F]//g;
[download]