my $matcher = do
   {
       local $" = q{|};
       qr{(?=(@pairs))};
   };

##</code><code>##

$ perl -e '
> @arr = qw{a b c};
> print qq{"@arr"\n};'
"a b c"
$