I would but it's large, I'll modify the code in the post.

Well it doesn't have to be real live realsize data, it just has to match your regexes, ie 

#!/usr/bin/perl --
#~ 2011-09-21-11:45:38PDT by Anonymous Monk
#~ perltidy -csc -otr -opr -ce -nibc -i=4     
use strict;
use warnings;
use autodie; # dies if open/close... fail

Main( @ARGV );
exit( 0 );

sub Main {
    if ( @_ == 1 ) {
        NotDemoMeaningfulName( @_, 'temp', \&DiddleSomeTemp );
    } else {
        Demo();
        print '#' x 33, "\n", Usage();
    }
} ## end sub Main

sub NotDemoMeaningfulName {
    my ( $inputFile, $outputFile, $callBack ) = @_;

    my $flag    = 0;
    my $outMode = '+>';
    open my ($inFh), '<', $inputFile;
    open my ($outFh), $outMode, $outputFile;
    while (<$inFh>) {
        if (/^#/) {
            if ( not $flag ) {
                $flag++;
                close $outFh;
                open $outFh, $outMode, $outputFile;
            } else {
                seek $outFh, 0, 0;
                $callBack->($outFh);
                close $outFh;
                open $outFh, $outMode, $outputFile;
            } ## end else [ if ( not $flag ) ]
        } else {
            print $outFh $_;
        }
    } ## end while (<$inFh>)
    close $inFh;
    close $outFh;
} ## end sub NotDemoMeaningfulName

sub Usage {
    <<"__USAGE__";


$0    
$0    dataFile     
    
    perl ${\__FILE__}    
    perl ${\__FILE__}    dataFile     


__USAGE__
} ## end sub Usage

sub DiddleSomeTemp {
    warn "Hey diddle diddle @_\n";
    my $f = shift;
    warn "#$_" while <$f>;
}

sub Demo {
    my ( $Input, $WantedOutput ) = DemoData();
    my $Output;

    require Test::More;
    NotDemoMeaningfulName(
        $Input,
        \$Output,
        sub {
            Test::More::is( $Output, $WantedOutput->[0],
                ' NotDemoMeaningfulName Works Aas Designed' );
            shift @$WantedOutput;
        },
    );
    Test::More::done_testing();
} ## end sub Demo

sub DemoData {

#~ http://perlmonks.com/?abspart=1;displaytype=displaycode;node_id=927
+193;part=1
    my $One = <<'__One__';
#
A
B
C
#
D
E
F
#
__One__

    my @Two = (

#~ http://perlmonks.com/?abspart=1;displaytype=displaycode;node_id=927
+193;part=2
        <<'__Two__',
A
B
C blah
__Two__

#~ http://perlmonks.com/?abspart=1;displaytype=displaycode;node_id=927
+193;part=3
        <<'__Two__',
D
E
F blah
__Two__

    );
    return \$One, \@Two;
} ## end sub DemoData

__END__
$ perl pm.927193.pl
not ok 1 -  NotDemoMeaningfulName Works Aas Designed
#   Failed test ' NotDemoMeaningfulName Works Aas Designed'
#   at pm.927193.pl line 76.
#          got: 'A
# B
# C
# '
#     expected: 'A
# B
# C blah
# '
not ok 2 -  NotDemoMeaningfulName Works Aas Designed
#   Failed test ' NotDemoMeaningfulName Works Aas Designed'
#   at pm.927193.pl line 76.
#          got: 'D
# E
# F
# '
#     expected: 'D
# E
# F blah
# '
1..2
#################################


pm.927193.pl
pm.927193.pl    dataFile

    perl pm.927193.pl
    perl pm.927193.pl    dataFile


# Looks like you failed 2 tests of 2.

[download]

As you can see, the logic is sound, temp gets overwritten, pretty much what you already have

Note the expected data doesn't match on purpose ;)

In reply to Re^3: Overwriting temp file by Anonymous Monk
in thread Overwriting temp file by Jeri

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.