Select Code to Download

#!/usr/bin/perl
use strict;
...
print "That line is: $line\n";
$line =~ s/\x{f6}/o/;
print "That line in ascii is: $line\n";

open my $in, '-|:raw:encoding(utf8)', "echo \xc3\xb6" or die $!;