Select Code to Download

$"='|';$|=$d=1;@b=map{bless{t,"$_  ",r,$d*=-1}}qw/Just another Perl
hacker,/;sub v{$s=shift;my$_=$$s{t};$r=int y===c*$$s{a}/360;$$s{a}=
($$s{a}+$$s{r})%360;s%(.{$r})(.*)%$2$1%;$_}{print"\r@{[map{v$_}@b]
}";select$x,$y,$z,2e-3;redo}

$"='|';$|=$d=1;@b=map{my($t,$h,$a)=("$_  ",$d*=-1);sub{my$_=$t;$r=int
y===c*$a/360;$a=($a+$h)%360;s%(.{$r})(.*)%$2$1%;$_}}qw/Just another
Perl hacker,/;{print"\r@{[map{&$_}@b]}";select$x,$y,$z,2e-3;redo}