#!/usr/bin/perl
use strict;
use warnings;
use utf8;

my $str = "ö123
å456
å789";

open my $inFileUTF, '<:utf8', \$str;

my @lines = <$inFileUTF>;
chomp @lines;
@lines = map {scalar reverse} @lines;
print "Using utf8\n";
print "$_\n" for @lines;

open my $inFile, '<', \$str;

@lines = <$inFile>;
chomp @lines;
@lines = map {scalar reverse} @lines;
print "\nUsing default file I/O\n";
print "$_\n" for @lines;

##</code><code>##

Using utf8
321ö
654å
987å

Using default file I/O
321¶Ã
654¥Ã
987¥Ã