my @messages = <DATA>;
foreach my $post ( @messages ) {
  $post =~ s/ /-/g;
}
print @messages;
__DATA__
one
foo bar
three words here