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

match