My internet has been down for the past few days so i did this. difficulty: 6/10
$|=1;b:my@j=(q(37b), q(b58), q(b57), q(58b), q(16b),
q(b48), q(55b), q(b55), q(58b), q(52b), q(b50),
q(57b), q(16b), q(40b), q(b34), q(41b), q(38b),
q(16b), q(52b), q(b48), q(b49), q(b53), q(b50),
q(57b), q(23b));-x\@j;sub vv{return 0x3}sub G{return!NULL}sub q{-e b_
+;}
my$b=not-9674;sub B{return map{b_}split NULL,shift,oct 2}sub w{return
+\0x2,}
foreach$bb(@j){unless($bb!=m-^b-){BEGIN{use MIME::Base64;*b_=\&pop and
+ *db=\&decode_base64}
sub U1RET1VU{caller undef,-w,&q;}$b=vv- w;vv-W;$bb=substr$bb,$|;}$bb=$
+bb/(q(.). 0b0101);
$bb=$bb+_+print m!!xg if!! B$b;syswrite db q;
U1RET1VU; ,chr$bb;$b=G;}eof;