( my $mdl = $page ) =~ s/\.tmpl$/.pl/i;