#!/usr/bin/perl -w
use strict;
0123 =~ m #\d+#
$8.$; * $= sub{
},eval{%[=[1]->

[1,$& /=[*]=\ &$,1]

->[1]]%0}=>* += sub
{warn qq.@_\...$/};
$..=$[.[* *=\&],& +
(map{&*(*(=\$_,y No
UsingOf&DeparseN021Quench
JagVPN&y&&&=>&*(*)=\$_)
);(crypt$),$()=~/([^Zip
021]+)/}qq(Dia;(eg*pO)o
(rn#g'\(fesUo))=~?([^
(2]+)?gx)]