my $i = 0;

    while (<FILE>) {
        $temp .= $_ unless /$heading_to_print/ and $i++;
    }