my @x= qw( : ; - );
    my @y= qw( . | ? );
    /(@x|\Q@y\E)/