Howdy, this is the revised version of my first obsfucated perl script. It used to be 630 bytes, and it now clocks in at 462! Major thanks to extremely for helping me optimize it.
$_="4a57a5522162a382a22514813154142a393a27a326a22172138417a326a2216221
+422243a251472352a35a326a221";$_=~s/a(.)/'1'x$1
/ge;@i=split(//,$_);$s=0;foreach(@i){($s==0)?{eval'$f=0
;$m=0;for($n=2;$n<$_;$n++){$f=(!($_%$n))?1:$f}
$l="";$s=($f==1)?1:2'}:{eval'($s==1)?{eval\'$l="0"x$_.$l;
$s=2;$m=$m+$_;\'}:{eval\'($s==2)?{eval\\\'$l="1"x$_.$l;$s=1;
$m=$m+$_\\\'}:japh\'}'};($m==5)?{eval'$s=0;print(pack("B8",
"011".$l))'}:{eval'($m>5)?{eval\'$s=0;print(" ")\'}:japh'}}