#!/usr/bin/perl -w
use strict;

open INPUT, '<', "/home/test/test.txt" or die "test.txt: $!\n";

my ($seen, @data);
while(<INPUT>) {
    $seen++ if /^Parameter/;
    push @data, $_ if $seen;
}
close INPUT;

print @data;