Select Code to Download

while ( reading from the input file yields a line of data ) {
   if ( the line begins with "RS," ) {
...
      print $line_out with the current line appended to it.
   }
}

use strict;
use warnings;
...
        print $line_out . $_;
    }
}