while ($data_in =~ m{<container><a>(.+?)</a><b>(.+?)</b></container>(<\?query\?>)?}ig)  {