for ( keys %input ) 
{
	my $string = $_ . $input->param('wrapper');
	my $lcstring = $input->param('wrapper') . lc($string);
	my $ucstring = $input->param('wrapper') . uc($string);
	$report =~ s/$input->param('wrapper')$string/$input->param($_)/g;
	$report =~ s/$input->param('wrapper')$lcstring/$input->param($_)/g;
	$report =~ s/$input->param('wrapper')$ucstring/$input->param($_)/g;
}