if ($line =~/^&nbsp; &nbsp; &nbsp; &nbsp; <a href/) {

and elsewhere

elsif ($line =~ /<font color=/) {