my($data) = $input =~ /\[([^\]]+)\]/s;