vcf_strip_extra_headers

#!/usr/bin/env perl
# Strip headers

my $seen_non_header = 0;

while (<STDIN>) {
    if (! $seen_non_header) {
        if (/^#/) {
        } else {
            $seen_non_header = 1;
        }
        print;
    } else {
        if (! /^#/) {
            print;
        }
    }

}