Select Code to Download

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

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

use warnings;
use strict;

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

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

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

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

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

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