#!/usr/bin/perl

use strict;
use warnings;

my $dest_dir = "/home/test/";
my @data = "";
my $filename = "$dest_dir/test.txt";
my @lines = "";

open(INPUT,'<'.$filename ) || die "can't open $filename \n" ;

@data=<INPUT>;

# Shift the lines of the header
do {
    my $line=shift(@data);
} while(!$line =~ /Parameter/);

print @data;

# Or play with @data as you wish, as the header is no longer in it...