#!/usr/bin/perl
use strict;
use warnings;

my @chunks = <DATA>;

foreach my $i ( 0 .. @chunks-1 ) {
    my $data = $chunks[$i];
    no warnings;
    if ( $data =~m/(\d+)\s{2,}(\d+) \s{2,}((\d|-)?(\d|,)*\.?\d*)\s{2,}((\d|-)?(\d|,)*\.?\d*)\s{2,}/) { #/ ) { 
        print "<$1> <$2> <$3> <$4> <$5> <$6> <$7> <$8>\n"; 
    }
}
print "\n\n";
foreach my $i ( 0 .. @chunks-1 ) {
    my $data = $chunks[$i];
    no warnings;
    if ( $data =~m/(\d+)\s+(\d+)\s+(-?\d*,?\d*\.?\d*)\s+(-?\d*,?\d*\.?\d*)\s+/) { #/ ) { 
        print "<$1> <$2> <$3> <$4>\n"; 
    }
}

__DATA__
1022289744                 8008102935                 221.00             199.00                70.50                3.20               0.00              -9.70              27.09             290.09
1022290146                 8008102942                  0.00             199.00                63.80                0.00               0.00              -3.80              26.70             285.70
1022290145                 8008102930                  0.00             199.00              207.80                 3.20               1.20           -120.00               30.04             321.24
1022289844                 8008102943                  0.00             199.00                 5.50                9.00               0.00               0.00              21.98             235.48
1022290156                 8008102954                  0.00             199.00              283.40                 0.40             11.20              -51.80              45.53             487.73
1022290048                 8008102949                  0.00             199.00                 0.00                0.00               0.00               0.00              20.50             219.50