#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use open qw(:std :locale);

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

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/ö/o/;
print "That line in ascii is: $line\n";