$testtext =~ s/^<p>//;
$testtext =~ s!</p>$!!;