push @NewHereDoc_a,PPI::Document->new(\( $HereDoc_o->content() ."\n" ."/* $Comment_S\n" # Comment .join('',$HereDoc_o->heredoc()) # ... original commented out ."*/\n" # .$NewText_s # ... replacement ."\n" .$HereDoc_o->terminator() ));