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

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