--- a/parselist.pl	Tue Aug 25 08:32:16 2015 +0300
+++ b/parselist.pl	Tue Sep 01 14:51:06 2015 +0300
@@ -1,17 +1,22 @@
 #!/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");
 
-while (defined(my $line = <STDIN>))
+my %classes = ();
+my $data = read_file(\*STDIN);
+if (defined($data))
 {
-  $line =~ s/^\s*//;
-  $line =~ s/\s*$//;
+  $classes{$1} = 1 while ($data =~ /<a href="$patprefix([A-Z]{3}\d\S+)$patsuffix">/ig)
+}
 
-  while ($line =~ /<a href="$patprefix([A-Z]{3}\d\S+)$patsuffix">/ig)
-  {
-    print "$1\n";
-  }
+
+foreach my $class (sort { $a cmp $b } keys %classes)
+{
+  print $class."\n";
 }
+
+print STDERR "* Parsed classfile: ".scalar(keys %classes)."\n";