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

[Beat]

my $out = join('', map{ '<p>'.$_."</p>\n" } split( /\n{2,}/, $in ) );

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?

  
my $out = join('', map{  
      s#\n#<br \>#g;  
      '<p>'.$_."</p>\n"  
   } split( /\n{2,}/, $in ) );  

mfg Beat