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