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

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

my %classes = ();
my $data = read_file(\*STDIN);
if (defined($data))
{
  $classes{$1} = 1 while ($data =~ /<a href="$patprefix([A-Z]{3}\d\S+)$patsuffix">/ig)
}


foreach my $class (sort { $a cmp $b } keys %classes)
{
  print $class."\n";
}

print STDERR "* Parsed classfile: ".scalar(keys %classes)."\n";