@pairs = $data =~ /(and)(?=\W*(\w+))/g;