Hello

Here is another way to do it:

#!/usr/bin/perl -w

$text = <<EOF;
Sunt autem quidam e nostris, qui haec 
subtilius velint tradere et negent satis 
esse.

Quid bonum sit aut quid malum, sensu iudicari.

Sed animo etiam ac ratione intellegi posse 
et voluptatem ipsam per se esse expetendam
et dolorem ipsum per se esse fugiendum.
EOF

$text = join '',
        map qq{<p class="first">$_</p>\n},
        split /\n{2,}/, $text;

print $text;
[download]

Aziz,,,