Rot-13

my @abc = 'a'..'z';
my $abc = [@abc».uc, @abc];
put .trans: $abc => $abc».rotate(13) for lines

Output:

Rosetta Code

Output:

Ebfrggn Pbqr

As a one-liner:

$ raku -pe '.=trans: {$_ => $_».rotate(13)}({[$_».uc, @$_]}("a".."z"))'

Last updated