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