while ($desc =~ /\[(.*?)\]/g)
  {
  }
  $org = $1 or '';