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


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

And 2 characters less by group the first letters too:

sub state {
    pop=~/^(A[KLRZ]|C[AOT]|D[CE]|I[ADLN]|K[STY]|M[ADEINOST]|N[CDEHJMVY
+]|O[HKR]|S[CD]|T[NX]|V[AT]|[GLP]A|[HR]I|FL|UT|W[AIVY])$/
}

[download]

--bwana147

In Section Meditations