#!/usr/bin/perl -w
use strict;
use warnings;

my $patprefix = shift or die("Usage: $0 <prefix> <suffix>\n");
my $patsuffix = shift or die("Usage: $0 <prefix> <suffix>\n");

while (defined(my $line = <STDIN>))
{
  $line =~ s/^\s*//;
  $line =~ s/\s*$//;

  while ($line =~ /<a href="$patprefix([A-Z]{3}\d\S+)$patsuffix">/ig)
  {
    print "$1\n";
  }
}