$testtext =~ s|^<p>(.*?)</p>$|$1|;