#!/usr/bin/perl
($_=<DATA>)=~y/\t /01/;s|.{8}|pack'B8',$&|eg;eval;__END__