@data = sort { $a->[1] cmp $b->[1] }      # Sort by YYYY/MM/DD
        map  { my @p=m!^\s*([A-Za-z]+)\s+ # alpha word
                       (\d+)/(\d+)/(\d+)  # date MM DD YY
                       (?:\s+([\d.]+))    # Substitute Number regex here
                       (?:\s+([\d.]+))    # ..
                       (?:\s+([\d.]+))    # ..
                       (?:\s+([\d.]+))!x; # Comments please
               # Fix the date if this is still in use in 2050...
               splice @p,1,3,sprintf("%04d/%02d/%02d",
                      ($p[3]>50 ? $p[3]+1900 : $p[3]+2000), @p[1,2]);
               # it deserves to produce incorrect results, after all
               # 2 digit dates is madness
               \@p} # return the fixed array
        @idata;