$e=sub{
                          c      h     r
            $t_=sub{"$u[&$t(4)]$u[7]$u[17] $_[0]"};#ha-
            &$s(&$t_(shift()));
	};