noise line

I'm out of practice and I didn't get it fully justified, and the end is a bit weak. Still, this has some cute techniques hidden inside.

\pe\
\rl\
 -e'
TOP:
$l=
<>;;
$c.=
$l
if$t
;$t=
$t||
$l=~
m{^e
x}x;
eof(
)?1:
goto
TOP;
eval
$c;
####
warn
four
(J).
char
(E).
per.
line
(H).
####
"\n"
'< \
$0 \
2>&1
exit
for(
keys
%::)
{$s=
$_;
y/
n-z
a-m
/
a-m
n-z
/;
eval
q{*{
$_}=
*{$s
}if!
de}.
fine
.q{d
&{$_
}}}
sub
zbz{
anot
}sub
yvar
{l.f
().
cker
}sub
w(){
" "}
sub
pune
{mom
().
her.
j()}
sub
sbhe
{0||
just
.j()
}sub
s{j(
).ha
}END

Copy to file, set +x and run.