For example, if I have the following raw data:
Timestamp: 00:55:46     SATID 17 VAL1 49 VAL2 038 SIGNAL 39 SATID 18 SATID 17 VAL1 49 VAL2 038  SATID 19 VAL1 69 VAL2 015 SIGNAL NA                                    SATID 39 SATID 28 VAL1 36 VAL2 073 SIGNAL 21


The “corrected” data line should be:
Timestamp: 00:55:46     SATID 17 VAL1 49 VAL2 038 SIGNAL 39                                     SATID 19 VAL1 69 VAL2 015 SIGNAL NA                                    SATID 39 SATID 28 VAL1 36 VAL2 073 SIGNAL 21

##</code><code>##

#!/usr/bin/perl -l

use strict;
use warnings;

my @lines;


while(<DATA>)
  {
    push (@lines, $_);
  }


print @lines;    # see if it worked


__DATA__
Timestamp: 00:55:46     SATID 17 VAL1 49 VAL2 038 SIGNAL 39 SATID 18 SATID 17 VAL1 49 VAL2 038  SATID 19 VAL1 69 VAL2 015 SIGNAL NA                                    SATID 39 SATID 28 VAL1 36 VAL2 073 SIGNAL 21