It has been a long time since I last tried my hand at a bit of obs so here goes nothing.
$c="sj\x09\x03\x12(\x15*O\x18=\x0aDh\x1e5".
"oR9\x03rd\x09\x16rJY+&n\\2(H|Z\x05&\x17" ;
sub c{$q='';$x= $y=0;for $z (split '',pop )
{for (0..$a){ $x+=2**$y if vec $z,$_,1;$y++
;if (!($y%$b)) {$q.=chr($x);$y=$x=0;}}}$q;}
$c.="\x16(fAc\x16\x0d]\x17:t<aB\$P*T\x1e1z"
;$a=6;open 0;@a =<0>;$c.="\x14\x08Q\x14[b".
"8q\x12'\x17\x16\@>m\x0acEK\x1c]Rli\x07d";;
$b=8;$c.="\\:b\@\x14[WL]0l\@\@\{";eval&c($c
."\x06nN>\x20"); $k=c(e('"'.e($a[-1]).'"'))
;chop($k);e(k(q{er!\n";},$k,t(c("\x20D(*7".
"\x0e\x1d\x10A\\=#"),in,pr))); J(A.P.H).PM;
q{tP\x15\x13\x07\x04T2rX\x01A\x14l\x18\x10}
It's not too difficult to decode so next time I will try harder.
P.S. This does need to be saved as file to run.