http://www.perlmonks.org?node_id=86067


in reply to Re (tilly) 2: Golf challange: match U.S. State names
in thread Golf challange: match U.S. State names

124 chars, using that set :)
sub state { pop=~/^(A[KLRZ]|C[AOT]|D[CE]|FL|GA|HI|I[ADLN]|K[STY]|LA|M[ADEINOST]| +N[CDEHJMVY]|O[HKR]|PA|RI|S[CD]|T[NX]|UT|V[AT]|W[AIVY])$/ }
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print