It removes <p> at the beginning, or </p> at the end of the string, but not both.

You might want to use the /g modifier. Or what I would do:

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