1
S AGT
3
S AGT
5
R AGT
7

##</code><code>##

...
S AGT
...
R AGT
...
S AGT
...
R AGT
...

##</code><code>##

...
S AGT #1
...
S AGT #2
...
R AGT #1
...
R AGT #2
...

##</code><code>##

my @Srecs;
while( <FILE> ) {
    if( /^S AGT/ ) {
        push @Srecs, $_;
    }
    elsif( /^R AGT/ ) {
        die "R-record with no corresponding S-record" unless @Srec;
        my @sRecBits = split ' ', shift @Srecs;
        my @rRecBits = split ' ', $_;
        ## Calculate stuff
    }
}
if( @Srecs) {
    printf "There were %d unmatched S-records\n"; scalar @Srec;
} 
## Other stuff