Header Line 1
Header Line 2
Third Header Line
Parameter line here
and the
rest of the
data follows

##</code><code>##

use strict;
use warnings;

my $dataFile = q{spw850417.data};
open my $dataFH, q{<}, $dataFile
   or die qq{open: < $dataFile: $!\n};

my @data;

while ( <$dataFH> )
{
    push @data, $_ if m{^Parameter} .. eof $dataFH;
}

close $dataFH
   or die qq{close: < $dataFile: $!\n};

print @data;

##</code><code>##

Parameter line here
and the
rest of the
data follows