use strict;
use warnings;

my $text = <<EOTEXT;
This is a word.
Here is another sentence.
EOTEXT

my @words = $text =~ /\b(\w+)\b/g;
print "@words\n";
$_.="," for @words;
print "@words\n";