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