Mine!

open TMP, ">$file" || print "Can't open temp file: $!";
my $top = 5;
my $cont = 0;
my $start = 1;
foreach $line (@cpanel) {
	my $dont = 0;
	if ($top > 0) {
		if ($line =~ /:/i) {
			$dont = 1;
		}
		$top--;
	}
        if(!$dont && $start && ($line =~ m/^\s*$/s)) $dont = 1;
        else $start = 0;
	unless ($dont) { print TMP $line; }
}
close TMP;