Help for this page

Select Code to Download

Select or download this

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

Select or download this

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