my $w = $input->param('wrapper');
for ( keys %input ) {
	$page_template =~ s/\Q$w$_$w/$input->param($_)/eg;
	$page_template =~ s/\Q$w\lc\_$_\E$w/$input->param(lc)/eg;
	$page_template =~ s/\Q$w\uc\_U$_\E$w/$input->param(uc)/eg;
}