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


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

Your first one can go down to 121:
sub state{ grep$_[0]eq$_,'WVTNHINMSCORIDCAKSDE WIALAR MNCTX NVAZ'=~/(?=(\w\w))/ +g,'FLGAILKTKYMAMDMEMIMOMTNDNENJNYOHOKPAUTWAWY'=~/../g }
... or you could have just taken the easy route by converting the && into an &.
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print