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