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