my $i = 0;

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


##</code><code>##

    perl -i.bak -ne 'print unless /pattern/ and $i++' file