Select Code to Download

param('s1') =~ m/ad/i

param('s1') =~ /a/i and param('s1') =~ /d/i

param('s1') =~ /a/i or param('s1') =~ /d/i

my @list = qw(a b c);
if (param('s1) =~ /[@list]/xi) {
    print "one of the characters matched"
}