#!/usr/bin/perl
  use   strict;
  use warnings   ;  ;
  seek (  DATA, 0,    0 ); <DATA>;
  # ein  kleines Script,   das nicht viel macht
  while( <DATA>  ) { chomp ;
   last()if(eof(DATA));
  $_  =~  s/ \S+/1/g ;
  $_ =  substr($_.(' 'x8),0,8); $_=~y/ /0/;
  print pack (   'B8',  $_);
  print ""  ; }
  print "\n"   ;#   von ToPeG
__DATA__