note
choroba
Switching to [doc://binmode] and manually picking the encoding from the $ENV seems to work for me:
<c>
#!/usr/bin/perl
use strict;
use warnings;
open my $in, '-|:encoding(utf8)', "echo \xc3\xb6" or die $!;
my $enc = $ENV{LC_ALL};
$enc =~ s/.*\.//; # TODO: en_US with no encoding not handled.
binmode STDOUT, "encoding($enc)";
my $line = <$in>;
chomp $line;
print "I read a line, that is ", length $line, " chars long.\n";
print "That line is: $line\n";
$line =~ s/\x{f6}/o/;
print "That line in ascii is: $line\n";
</c>
<h2>Update</h2>
It seems all that's needed in your original code is to remove the local encoding from the input:
<c>
open my $in, '-|:raw:encoding(utf8)', "echo \xc3\xb6" or die $!;
</c>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-832495">
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
</div></div>
1120759
1120759