my($meta) = substr($everything, $sectionstart) =~ /<text>(.*?)<\/text>/;