my $mods_p = '';
my $mods_m = '';
($opts{$_} ? $mods_p : $mods_m) .= $_ for qw( x i s m );
$re = qr/(?$mods_p-$mods_m:$re)/;