Select Code to Download

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

match

my $opts = $ARGV[0];

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

...