Select Code to Download

  foreach my $line (@results)
...
     my ($first, $second, $third) = split(/::/, $line);
     print qq(<b>$first</b> <a href="$second&a=$first&t=$third">$third
+</a><br>);
  }

<b>page 1</b> <a href="urlhere?a=page 1&t=descrption 1">description 1<
+/a><br>

<b>page 2</b> <a href="urlhere?a=page 1&t=descrption 2">description 2<
+/a><br>

<b>page 3</b> <a href="urlhere?a=page 1&t=descrption 3">description 3<
+/a><br>