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;