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;

##</code><code>##

$VAR1 = [
          '',
          'This',
          ' ',
          'is',
          ' ',
          'a',
          ' ',
          'word',
          '.
',
          'Here',
          ' ',
          'is',
          ' ',
          'another',
          ' ',
          'sentence',
          '.
'
        ];