eval "\$source =~ s/\$find/\$replace/$opt";

##</code><code>##

$opt =~ /[^imsx]/
   and die(...);

eval "\$source =~ s/\$find/\$replace/$opt";