while (my $line = <$INPUT_FH>) {
    # Ignore the header lines
    next if $line =~ /^(procs|\s*r\s+b\s+swpd)/;

    # process file
}