use HTML::Entities;
my $html = 'whoa dude whats going on with this line';
my $text = HTML::Entities::decode_entities($html);

print "$text\n";
  ## prints: whoa dude whats going on with this line
print $& while $text =~ /\w+\s+/g;
  ## prints: whoa dude whats with this