foreach $term (@inputs) {
  while (<FILE>) {

##</code><code>##

while (<FILE>) {
  foreach $term (@inputs) {

##</code><code>##

use warnings;
use strict;

##</code><code>##

  push @before, split(' ', $`);

##</code><code>##

  @before = split(' ', $`);

##</code><code>##

my @before = split /\s+/, $`;

##</code><code>##

@before = reverse(@before);
@before = splice(@before, 0, 7);
@before = reverse(@before);

##</code><code>##

  if(exists $results{$number}) {
  $existing = $results{$number}; 
  $results{$number} = $existing . "... @before" . "<b>$&</b>" . "@after ...";
  } else {
  $results{$number} = "... @before" . "<b>$&</b>" . "@after ";
  }

##</code><code>##

$results{$number} .= "... @before" . "<b>$&</b>" . "@after ";