Another idea:

my ($prefix, $combine, $suffix) = split /(combine)/, $key, 2;
if ($combine) {
 print "$prefix found\n" if $prefix;
 print "$suffix found\n" if $suffix;
}
[download]