Help for this page
$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
www.com | www.net | www.org
No recent polls found