$ perl -le'my @items; my $rxMatchItems = do { local $" = q{|}; qr{(?:@items)} }; print $rxMatchItems'
(?-xism:(?:))