while ($t =~ /^(.*?)\[(xchx|url|b|color)(?:=(?:(?:"([^"]+)")|([^\]]+)))?\](.*?)\[\/\2\](.*)/is) {