$text =~ s/<heading([^(<\/heading>)]*?)level=(.{1})([^(<\/heading>)]*?)<\/heading>/<heading$2>$1$3<\/heading$2>/gsix;