in reply to Simple Problem getting me Stumped

A one liner doing that: 
perl -pe's/^(read_community)\s+XXXXXX/\1 newstring/'

[download]

In Section Seekers of Perl Wisdom