in reply to [perlre/perlgolf] Golf this: return -1 or return +1 on regexp subroutine please
Wierdly enough, this works (67)
  p
Thanks to hints from a golfer who plays the pro circuit.sub by_priority { ($a cmp$b,grep$_,map$b=~/$_/-$a=~/$_/,FAQ,SERVICE,ORGANIZATION)[-1] }
  p
|
---|
In Section
Seekers of Perl Wisdom