my $schalter = '';
$schalter .= 'i' if $cgi->param('schalter_grossklein');
$schalter .= 's' if $cgi->param('schalter_punkt_matcht_newline');
if ($schalter) {
    $find = "(?$schalter)" . $find;
}

$string =~ s/$find/$subs/;