Select Code to Download

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

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

#! perl -sw
use strict;
...
the

c:\test>