#!/usr/bin/perl
$o='o';
($___=$__=$_="$0 6 4")=~s/\D//g;
eval "tr/$___/5$o/";
if(shift==5){
    open(o)&&map(print(unpack("B*",$_)),<o>),exit
}elsif(shift==4) {
    $_=<>;
    y/01/ #/;
    s/.{5}/$&\n/g;
    s/.{18}/\n$&/sg;
    print;
    exit;
}
$P="|uudecode|$_|$__|head -$___";
$___=~s/(.)./ $1$& /;
open(P)&&print P
"\nbegin$___$o\n", '>#\/R?_6(" ^DWZQ^FWX0 0"(/=%SX?^FWP^\GWX0', "\n\nend\n"
