[Moscow.pm] perl 6 vs utf8

[Николай Мишин]

Hi Moscow-pm
Добрый день, кто-нибудь знает аналог кода (реверсирую строки так, что их приходится читать справо-налево), приведенного ниже на perl6 (racudo)
честно говоря мне не удалось его заставить работать с utf8, спасибо

use utf8;    # encoding="utf-8"
use strict;

open my $fh, '>:utf8', 'test';

my $filename = shift;
open my $foofh, '<:utf8', "$filename"
  or die "Can't open $filename: $!\n";

my $out;
while (<$foofh>) {
    my ($line) = $_;
    chomp($line);
    $out = scalar reverse $line;
    print $fh $out, "\n";
}
close $foofh;

close $fh;
--
Николай Мишин