http://qs321.pair.com?node_id=212698


in reply to [perlre/perlgolf] Golf this: return -1 or return +1 on regexp subroutine please

Wierdly enough, this works (67)
sub by_priority { ($a cmp$b,grep$_,map$b=~/$_/-$a=~/$_/,FAQ,SERVICE,ORGANIZATION)[-1] }
Thanks to hints from a golfer who plays the pro circuit.

  p