johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -E '
my $inFile = q{spw1188105.dat};
open my $inFH, q{<}, $inFile or die qq{open: < $inFile: $!\n};
while ( my $bytesRead = read $inFH, my $record, 18 )
{
    printf q{%-3d} x 18 . qq{%s\n},
       map( ord, split m{}, $record ),
       q{x} x 35;
}
close $inFH or die qq{close: < $inFile: $!\n};'
1  1  0  0  0  0  0  0  0  0  1  0  0  0  0  0  0  0  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
2  1  1  0  0  0  0  0  1  1  0  0  0  1  0  0  0  1  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
3  1  1  1  0  0  0  0  0  0  1  0  0  0  0  0  0  0  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
4  1  1  1  0  0  0  0  0  0  1  0  0  0  0  0  1  0  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
5  1  1  0  0  0  0  0  1  1  0  0  0  1  0  0  0  1  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
6  1  1  0  0  0  0  0  1  1  0  0  0  1  0  0  0  1  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
7  1  1  0  1  0  0  0  0  0  1  0  0  0  0  0  0  0  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
8  1  1  0  0  0  0  0  1  1  0  0  0  1  0  0  0  1  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
9  1  1  0  0  1  0  0  0  0  1  0  0  0  0  0  0  0  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
10 1  1  0  0  0  0  0  1  1  0  0  0  1  0  0  0  1  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
11 1  1  0  0  0  1  0  0  0  1  0  0  0  0  0  0  0  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
12 1  1  0  0  0  0  0  1  1  0  0  0  1  0  0  0  1  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
13 1  1  0  0  0  0  1  1  1  1  0  0  0  0  0  0  0  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx