#!/usr/bin/perl

$band;
$album;
$lastband;

while (<>) {
  chomp;
  s/\*//g;
  s/ *\(.*\) *//g;

  @alb=split(/<\/?i>/);

#  print "+ $alb[0] + $alb[1] + $alb[2] + $alb[3]\n";

  if ("x".$alb[0] eq "x") {$band=$alb[2];} else {$band=$alb[0];};
  $album=$alb[1];
  $band =~ s/,//g;

#  print "= $band = $album = $lastband = ".($band eq $lastband)."\n";

  if ($band ne $lastband) {
    print "\n<p><font size='+1'><b>".$band."</b></font>\n";
  }
  print "<br>".$album."\n";

  $lastband=$band;
}