if(index($key, $combine) != -1) {
  print "Found (prefix $combine): $1\n";
}