#!/usr/local/bin/perl -w
use strict;

my @dat;
while (<DATA>) {
  chomp;
  if (/(0x[a-zA-Z0-9]+)\s
      ([a-zA-Z0-9 ]+)\s
      (0x[a-zA-Z0-9]+)\s
      ([0-9\.]+)/x) {
    print "1. $1 \n";
    print "2. $2 \n";
    print "3. $3 \n";
    print "4. $4 \n";
    @dat = ($1,$2,$3,$4);
  }
}
__DATA__
0x4300004 Universe Collects 0x4300021 1.2.13.44
[download]