$testtext =~ s/(^<p>|<\/p>$)//;