regex: Absatz finden und in <p> einfügen

[split.s]

Das ganze sollte dann später mal so aussehen:

<p>Dies ist ein Text</p>
<p>Dies ist ein Absatz nach zwei Newlines</p>
<p>Ein weiterer Absatz</p>
<p>Noch ein Absatz</p>

> >   
> > Wie könnte man sowas in PERL umsetzen?  
>   
> `my $out = join('', map{ '<p>'.$_."</p>\n" } split( /\n{2,}/, $in ) );`{:.language-perl}  
>   
> mfg Beat  
  
im prinzip genau was ich haben wollte :) Aber wie kann ich jetzt noch integrieren, dass er nur ein einzelnes Newline durch ein <br /> ersetzt?