my ($table_data) = $input =~ /\[table\](.*?)\[\/table\]/s;