for ( keys %input ) {
	$report =~ s/$input->param('wrapper')$_$input->param('wrapper')/$input->param($_)/g;
	$report =~ s/$input->param('wrapper')lc_$_$input->param('wrapper')/lc $input->param($_)/g;
	$report =~ s/$input->param('wrapper')uc_$_$input->param('wrapper')/uc $input->param($_)/g;
}