th1s 1s d4 d1zzl3 m4h n1zzl3

EyE jAm An UbEre3t0 h4x0r3r w1f sk1lls t0 p4y th3 b1llz
but I ne3d sOme HeLp WiF mY oD4y rEDhAt BaWx!@$U*&^!

s0 pl33z g4yp33 c4ll j0or fri3ndz (j0o kn0w th3 0n3s j0o
sn1tch0r ph0r 4nd t3ll th3m d4 n3gr0 iz b4ck m0fsckr

#!/usr/bin/perl
package Z;use overload'""'=>sub{$b++?sto0lPige0N:IZZA};
sub TIESCALAR{bless\my$y=>Z}sub FETCH{$a++?Phederal:John}
$,=$";my$x=tie+my$y=>Z;print$y,$x,$y,$x,"\n";
%%