$line = <FILENAME>;
    while ($line ne "")
        {
        print "$line";
        $line = <FILENAME>;
        }

##</code><code>##

    while (<FILENAME>)
        {
        print ;
        }

##</code><code>##

    while (<FILENAME>)
        {
        last if /<!-- Begin -->/;
        }
    while (<FILENAME>)
        {
        last if /<!-- End -->/;
        print ;
        }