Escape left brace in search-placeholder-url-parser.pl for Perl update

Author: adrianbartyczak

url_management/url_parsing_and_opening/openurl/search-placeholder-url-parser.pl

@@ -153,7 +153,7 @@ sub escapeUrlSection {
   my $urlEndPos = 0;
   my $fnlUrl;
 
-  while ($url =~ /(.*?)({search([^\\]*)(?:\\([^}]*))})/g) {
+  while ($url =~ /(.*?)(\{search([^\\]*)(?:\\([^}]*))})/g) {
     my ($txtBefr, $plh, $opts, $spcDelim) = ($1, $2, $3, $4);
     my $optSrchQryPos;
     my @optOnlyWrdsPos;