use strict;
use warnings;
use Data::Dumper;

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

my @words = split /\b(\w+)\b/, $text;
print Dumper \@words;