/(${\join"|",@x,map(quotemeta,@y)})/

##</code><code>##

    /(${\join($",@x)}${\quotemeta(join($",@y))})/

##</code><code>##

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

##</code><code>##

    /(:|;|-|\.|\||\?)/

##</code><code>##

    /(: ; -|\.\ \|\ \?)/