4 lines
129 B
Raku
4 lines
129 B
Raku
use Data::Dump qw(dd);
|
|
dd my $str = "XXXXXABCDEFGHIoooooooooooooooooooooooooAAAAAA";
|
|
dd my $enc = encode($str);
|
|
dd decode($enc);
|