Select Code to Download

join "|", map { "\\b$_\\b" } reverse sort keys %cats;

use warnings;
use strict;
...
ok 1
ok 2
1..2