Select Code to Download

my $regex = do
   {
       local $" = q{|};
       qr{(?x) \b (@keywords) \s ( (?: (?! (@keywords) \b ) . )* ) }
   };