Select Code to Download

$str = 'a b c o o p s h u h ? ';
print $& while $str =~ /.\s/g;

use HTML::Entities;
my $html = 'whoa dude whats going on with this line';
...
  ## prints: whoa dude whats going on with this line
print $& while $text =~ /\w+\s+/g;
  ## prints: whoa dude whats with this