現在時刻を表示する記号ワンライナー

$ perl -le '""!~("(?{".("_/)./~^=_,_^},@=!@*@@;"^"/]@@[^-^>@>,]@/^@,^)-^")."})")'

とてもこんなコマンドがマトモに動くようには見えないのに…Perlすげー