--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/parselist.pl	Mon Aug 17 22:02:22 2015 +0300
@@ -0,0 +1,17 @@
+#!/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";
+  }
+}