use strict;
my $count = 1;

while (<>) {
    if ( m/^\^status/ ) {
      s/([^ ]+)(?:\s+)
        ([^ ]+)(?:\s+)
        ([^ ]+)(?:\s+)
        ([^ ]+)(?:\s+)
        ([^ ]+)(?:\s+)
        ([^ ]+)(?:\s+)
        ([^ ]+)(?:\s+)
        ([^ ]+)(?:\s+)
        ([^ ]+)(?:\s+)
        ([^ ]+)(?:\s+)
        ([^ ]+)(?:\s+)
        ([^ ]+)(?:\s+)
        ([^ ]+)(?:\s+)
        ([^ ]+)(?:\s+)
        ([^ ]+)(?:\s+)
        ([^ ]+)(?:\s+)
        ([^ ]+)(?:\s+)
        (\d{1,3})(?:\s+)
        (\d+)$
        /$1 $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $17 ${count} $19/x;
      $count++;
    }
    print ;
}