$_='';s//Z/eeeee;print;
sub Z{
return <<Z;
local ($),$(,$;,@_) = (qw/[ ] ( ) ' ; ,/, ' ');
sprintf '%s', <<EOF;
my \$z=$_[1]}\@$)$(_ \"a\$bc%e$;fg$_[0]*+i$_[3]-k.lm/0n1o2p3q4r5s6tuvwxy$_[2]{=$_[1]$_[2]
sprintf$_[4]$_[1]%s$_[1]$_[3]join$_[4]$_[1]$_[1]$_[3]$;map{substr$;\$z,length$;\$_$_[0]+$_[4]\$_$_[3]1$_[0] } (
qw^20!! 28$_[4]setsockopt reverse 20!! 4est om 40eight,
oomphasaurus-ish-li-nessmen 44 23 43 J 26bumblebees 40eight,
0000000000000000000000000000000000 23twenties-in-a-row$_[3]^$_[0]$_[3]
$_[1]$;s$_[4]tr s'$_[3]$_[4]map { substr$;\$_$_[3]0,2) } ('ubbidubbi','$_[4]tingle',$_[4]'men$_[1]$_[3]
'r stage', 'reputation', $_[1]verse$_[1]$_[3]$_[1]rst$_[4]packet','e = mc**2'$_[3]$_[1]symball',
'swastika', 'risc processor', 'tenable', ' log', 'can', 'lt', 'imp',
'e = 2.7182818...', 'sending...', 'tsunami', 'ocarina', 'ko',
$_[1]pterodactyl$_[1]$_[3]$_[1] gone$_[1]$_[3]$_[1]etymology$_[1],$_[1]pens'$_[3]'erbium$_[1],'natrium',
'megadodo$_[1]$_[3]' ghastly$_[1]$_[3]'etcetera', 'nepotism', 'tb', 'yn whoosh',
'amtrak', $_[1]e$_[0]$_[1]$_[0]$_[3]map{return\$_ unless /^$;$)a-z$({2}$_[0]/; scalar
reverse$_[4]\$1$_[4]}$;$_[1]; $_[1],'rp','ni','ft','$;q','q/','%s',' /x3 . \"',
$_[1]%s;\"$_[3]$_[1]$_[3]$_[1]pam } $(_\$$)s\$$_[4]{$_[4]pam$_[1]$_[3]$_[1]{$_[1]$_[0],map{
sprintf\"$;%s$_[0]*$;\\\$_**%2$_[0]+\"}(
$)$_[1]-5/3$_[1]$_[3]$_[4]$_[4]$_[4]'3'$($_[3]\['11','2'\]$_[3]\['-61/3'$_[3]$_[1]1$_[1]$(,$)'16$_[1],$_[1]0'$($_[0],'0}1..4$_[0]',';');
EOF
Z
}