とりあえず１つできた！！
$ perl -e '""!~("(?{\$*=".("/@^{_^)@/"^"_/.@/,@.[")."\$;,(\$*/=\$;)-!\$??\"*\":\$/".("^()@>{@]`][[/"^")@@,[_{`;:)>_")."{!(\$*%\$_)}!\$?..\$*]->[!\$?]})")' 2009
7*7*41150文字を超えてしまったので、もうすこし短くできないかどうか検討しよう。
いやー、試行錯誤した結果ようやく動いたときにはかなり嬉しかった。
