my $m = $regexI ? qr{(?i:$regexM)} : qr($regexM);
my $s = $sv ? qr(^) : qr();
my $e = $ev ? qr($) : qr();
my $b = $ww ? qr(\b) : qr();
my $c = $ch ? qr([.,:;!?'"]) : qr();

foreach my $line (@data) {
	push @changed, $line =~ s{$s$c$b\K$m(?=$b$c$e)}{$regexR}r;
}