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