$text=~s#<p>(.+?)<\/p>#"<p>".&enter($1)."<\/p>"#gsie;

sub enter
{
my $new;

($new)=$1;
$new=~s/\n//gsi;
return $new;
}