$ perl -le '""!~("(?{".("_/)./~^=_,_^},@=!@*@@;"^"/]@@[^-^>@>,]@/^@,^)-^")."})")'とてもこんなコマンドがマトモに動くようには見えないのに…Perlすげー

はじめてのHello world!! $ perl -e '""!~("(?{".("^_)@]@}(_,@/~)@,@;~~<@|"^".-@.)`_`:@,@^^/^,___`.^")."})")' Hello world!!ワンライナーでやろうとすると色々制限が増えて面倒っぽい。