$results{$number} .= "$url... @before <B>$1</B> @after <BR/>";

##</code><code>##

   for $term ( @$inputs ) {
      while ( /\b$term\b/g ) {
        ...
      }
   }