if ( $input->param('debug') ) { print "<P>...replacing parameter tokens in final report"; }
my $w = $input->param('wrapper');
for ( keys %input ) {
	if ( $input->param('debug') ) { print "<P>...replacing token: $_"; }
	$page_template =~ s/\Q$w$_$w/$input->param($_)/eg;
	$page_template =~ s/\Q${w}lc_\L$_\E$w/$input->param(lc)/eg;
	$page_template =~ s/\Q${w}uc_\U$_\E$w/$input->param(uc)/eg;
}