#!/usr/bin/perl -w

# I'll assume for the sake of variety that we want to process the information 
# in the file, not just delete the fluff
my $header_lines = 3;
while (<>) {
    next if 1 .. $header_lines;
    chomp;
    my @data = split;  
    &munge(@data);   
}