use strict;

# Slurp the whole data file in memory
binmode DATA;
my $data = do {
  undef $/;
  <DATA>;
};

# And now split it into records :
my @rows;
while ($data =~ /\G(.{100})/gsm) {
  push @rows, $1;
};

foreach my $row (@rows) {
  my @contents = unpack( 'a6a10a10a10a63', $row );
  print join ":", @contents,"\n";
};

__DATA__
1JJJJJNNNNNNNNNTTTTTTTTTTRRRRRRRRRRSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS2JJJJJNNNNNNNNNTTTTTTTTTTRRRRRRRRRRSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS3JJJJJNNNNNNNNNTTTTTTTTTTRRRRRRRRRRSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS

##</code><code>##

perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web