my ($number, $word) = (qr,(\d+),a, qr,(\w+),a);
for ($env->{PATH_INFO}) {
$env->{'gruntmaster.page'} = $1 if s,/page/$number$,/,;
my ($number, $word) = (qr,(\d+),a, qr,(\w+),a);
for ($env->{PATH_INFO}) {
$env->{'gruntmaster.page'} = $1 if s,/page/$number$,/,;