perl -e "$opts = 'io'; $rex = eval qq(qr/aka/$opts); print 'match' if 'ALAKAIA' =~ $rex"

match

##</code><code>##

my $opts = $ARGV[0];

die "never trust user input" unless $opts=~/^[msixpodualn]+$/;

...