記号プログラムを改変してみる

記号解読にチャレンジ - すぎゃーんメモの続き。
解読できたのなら、ある程度自分で改変することもできるわけで。作ってみた。

#!/usr/bin/perl
$^='-^\\\\%+"<&]\\$=/**:.](%_,//;<#)\\^_%$<]&!($;\',}(!?.{[$).^-<@$>]|"~$;\'\\=">{!%$<]$*~$;\'-@]`<#:?',
$^_='_~`||`]@^_`"./,))<%?%<"(?<_}+^.;#^^@@{`:,|[{_``__[]_;/@-<~<;^.[^~::<&""[_`}*.[?]+[?!|-_`@[*);//(]?",=_+?]{{#`,@@<*@[{|/`.@#@[""[+_}[?__(?.+[_}<.?_"{>|!{}@@^_,{<',
$^_^='{>][[[;/,{>/]_@@]((,^!_&+-{#%%@^[*~)&_>_][|@{>]!+)!~);_?|%.[%<%""/(`>>^`{?@_@+^>@|}.[<{>{(>:(<";&%_"){=+:@_}]@%.[^(`_<<]^!@+|`-|:{#}#`,]]]_){"-;.{|]@`>_"=%(>@_|',
$^_=~('(?{$^_=~'.('_^""'^'+,|/'."-".('$%'^';{'.'(-:^;'.('[)]@'^'>_<,').'$^_})')))


ウマく調整しないと

Integer overflow in octal number at (eval 4) line 1.
Integer overflow in octal number at (eval 5) line 1.
Integer overflow in octal number at (eval 6) line 1.
Integer overflow in octal number at (eval 7) line 1.
Integer overflow in octal number at (eval 8) line 1.
...

って変なのが出てくる…なんだこりゃ