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

[hotti]

hi,

Wie könnte man sowas in PERL umsetzen?

  
my $s = qq(  
eins  
  
zwei  
  
  
drei  
  
);  
$s =~ s/^\s+|\s+$//;         # trim  
my @txt = split /\n+/, $s;  # an Zeilenumbruch splitten  
  
print "<p>".join("</p>\n<p>", @txt)."</p>", "\n";  

Hotti