# prepare an important string...
push(@!,split shift(@!),
q 7$=W8W$=8$b eq "j"8W$=8$=W8 $b eq
"l"8W$=8W!8($b eq"k"&&$_!~/!/)a#W$=8#$=W8$=W#8W$=#8#!8##a\*8
$=8p$=8$=p8$=q8q$=8p(#.{59})$=8$=$1q8#q(.{60})$=8#$=$1
pap(.{60})!8$![0]++;"\*$1$="8q(.{60})!8$![0]++;
"\*$1$="8(t.*)!8$b=(length$1)-61;
substr($1,0,$b )."!". substr($1,$b+1).$=4x"gs'"x"c"es'"c"z"gs if'
.shift"z"l"just another perl hacker"l4'SpaceInvaders'.($=x12)
.'domm@zsi.at j=left k=fire l=right'_'#'x58_("$*p$*"x11).
  $=x3_$*.("$*$*q"x11).$=_("p$*$*"x11).$=x3_($=x3).("$*$*q"x11)_
1_$b.$=."W$b"_'#'x 587);