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