open FILE, "<" . $filename or die "Couldn't open file " . $filename . " for reading";
        while (<FILE>){
                $temp .= $_ unless /$heading_to_print/;
        }
        close FILE;

        open FILE, ">" . $filename or die "Couldn't open file " . $filename . " for writing";
        print FILE $temp;