$pat = join '|', reverse sort keys %pattern;
$pat = qr/$pat/;