Help for this page

Select Code to Download


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

match
  2. or download this
    my $opts = $ARGV[0];

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

...