while (<>) {
  my $node;
  $node = $1 if /^<TR bgcolor=.*>([^<]*)<\/a>/io;
  next if $node =~ /^re:/io;
  print "Found original: $node\n" if $node;
}