#!/afs/athena/contrib/perl/perl

while(<>) {
    if (/^\s/) {
	($nospc = $_) =~ s/\s+//g;
	($spc = $nospc) =~ s/(....)/$1 /g;
	($bin = pack("H*",$nospc)) =~ tr/\000-\037\177-\377/./;
	printf("%16s%-45s%s\n","",$spc,$bin);
    } else {
	print;
    }
}
