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