#!/usr/bin/perl

while (<>) {
  print "=$1,\n" if /package-frame.html" (?:TARGET|target)="packageFrame">([^<]+)<\/A>/;
}
