13 lines
272 B
Text
13 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
|