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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

and#bar#and#baz