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