Select Code to Download

$count = @count = $data =~ m/and/g; and it works ok

$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;