Select Code to Download

$_ = "Hello there,neighbour";

@words = ( /(\w+)/g );

print "Words are: @words\n";

$_ = "We're done. Mr. O'Conner sent e-mail - said 'no thanks'.";

@words = ( /(\w+(?:[-']\w+)?)/g;