my $in_header = 1;
while (<@data>) {
   if (/Parameter/) {
       $in_header = 0;
       next;
   }
   next if $in_header;
   push(@data,$_);
}

print @data, "\n";