my blame...i want to rewrite the file with the new data, yes. however the above code writes an empty file for some reason.

edited garbage from post...working solution follows.

    my @BuildToke=();
        while ( my $token = $stream->get_token ) {
                if (( $token->is_comment and $token->as_is eq '<!--Sta
+rt FULL TEXT-->') ..
            ($token->is_comment and $token->as_is eq '<!--End FULL TEX
+T-->')){ 
            $newcontent = $token->as_is; #if $token->is_text;
            push @BuildToke,$newcontent;
                } 
        } 
open FH, ">", $file or die "Error opening for overwrite $file: $!\n";
print FH @BuildToke; 
close FH; 
    } 
} 
exit(0);
[download]