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