Select Code to Download

$data[ $i++ ] = pack "NNA*", m[(\d+)\D+(\d+)], $_ while <>;

for(  $data[$i++]  ) {
    read STDIN, $_, $reclen, $keylen;
    substr( $_, 0, $keylen, pack "NN", m[(\d+)\D+)(\d+)] );
}