my $r = URI::Router->new(
qr#/aaaa# => 1,
qr#/[bcd]+# => 2,
qr#.*e.*# => 3,
qr#.+(?:f|t+|z*)[0-9]+# => 4,
);
timethese(-1, {
a => sub { $r->route('/aaaa') },
b => sub { $r->route('/ddcb') },
e => sub { $r->route('/qwer') },
f => sub { $r->route('/xtt8') },
});