Instead of filtering out everything but win markets with the phrase in the book:
>unless ($market_name =~ /\([A-Z]+|F\/C|Fav|Place|W\/o/)
Try explicitly looking for place markets as follows:
>if ($market_name =~ /Place/)
This should work. There may be some additional markets returned, but you can add filters as above to get rid of them.