in reply to Regular expression question
my ($table_data) = $input =~ /\[table\](.*?)\[\/table\]/s; [download]