Update - in making the code live, I spotted that we need to change eval, otherwise match is set to last $1. ie:

eval q{
  if ($value =~ /($input)/) { # try match
    $match = $1;          # assign here because of local scope?
  }
};
[download]

I'm pretty happy with that now :)

cLive ;-)