Wei-Hwa's Boardgames

#!/usr/bin/perl print "Wei-Hwa's Boardgames

\n";
foreach () {
  if (/(.*)\t(.*)\t(.*)/) {
    ($rank,$score,$name) = ($1,$2,$3);
    chomp $name;
    $oldname = $name;
    $name =~ s/[^a-zA-Z ]/ /g;
    $name =~ s/ /+/g;
    $url = "http://www.google.com/search?q=$name".'+BGG&btnI';
    print "$rank\t$score\t$oldname\n";
  } else {
    print $_;
  }
}
print "

\n";