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

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