#!/usr/bin/perl -w
use strict;

my $test = '<p>this is some<1p> paragraph</p>';

$test =~ s/<.?p>//g; #s/<.??p>//g; #also ok

print "$test\n";
__END__
prints:
this is some paragraph