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