14 lines
272 B
Text
14 lines
272 B
Text
|
define rot13 use $str
|
||
|
|
$str each chr
|
||
|
|
dup m/[A-Ma-m]/ if
|
||
|
|
ord 13 + chr
|
||
|
|
else
|
||
|
|
dup m/[N-Zn-z]/ if
|
||
|
|
ord 13 - chr
|
||
|
|
$str length list "" join
|
||
|
|
|
||
|
|
"12!ABJURER nowhere"
|
||
|
|
dup print "\nas rot13 is\n" print
|
||
|
|
rot13
|
||
|
|
print "\n" print
|