$testtext =~ s{</?p>}{}g;