Hi
halligalli,
did you tried the shift command?
Here is what I came with:
#!/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...
Hope this can help you...
The_Hawk_1 - an ignorant monk to be...