Select Code to Download

$count = () = $data =~ m/and/g;

my($next_word) = /and(?=\W*(\w+))/;

my @pairs = /(and)(?=\W*(\w+))/g;

$_ = 'foo and bar and baz went to the sea.';
my @pairs = /(and)(?=\W*(\w+))/g;
print join "#", @pairs;

and#bar#and#baz