The fix_latin filter script 

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