# 1 2 3 4 5 6 7 8 #234567890123456789012345678901234567890123456789012345678901234567890123456789012345678 sub by_priority{my$r=qr/^(?:Service|Organisation|FAQ)/;($a=~$r&&-1)+($b=~$r)||$a cmp$b;}