The fix_latin filter script
while
(<>) {
$_
= fix_latin(
$_
,
bytes_only
=>
1
)
if
/
[^
\x00
-
\x7f
]
/
;
print
; }