my $page = "page_name.tmpl";
my $mdl = $page =~ s/\.tmpl/\.pl/i;