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

##</code><code>##

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