Select Code to Download

while ($data_in =~ /<container><a>(.+?)<\/a><b>(.+?)<\/b><\/container>
+(<\?query\?>)??/ig)  {
  $data_out = "$2, $1$3 ";  errors here
  ; further processing here 
}

while ($data_in =~ /<container><a>(.+?)<\/a><b>(.+?)<\/b><\/container>
+(<\?query\?>)??/ig)  {
  if ($+ =~ /<\?query\?>/i) {;   errors here now
...
    }
  ; further processing here 
}