Re: How to split into paragraphs?

[Samy_rio]

Hi jrw, this may help you if I understood your question correctly.

use strict;
use warnings;

my $str;

while (<DATA>){    
    chomp;
    ($_ =~ m/^\w/) ? ($str .= "<\/p>\n<p>$_\n") :($str.="$_\n");    
}
$str =~ s/^(<\/p>)(.+)$/$2$1/gsi;
print $str;

__DATA__
abc:
  asdf1
  asdf2

def:
  asdf3

ghi:
  asdf4
  asdf5

[jrw]

Velusamy, see clarification above. I already have the entire string in a variable and want to split it into substrings.

[Samy_rio]

Try like this,

use strict;
use warnings;
my $str = <<EOF;
abc:
  asdf1
  asdf2

def:
  asdf3

ghi:
  asdf4
  asdf5
EOF

my @str = split/(?=\n+\w)/, $str;

print "$_" for @str;

#or

$str =~ s/(^|\n+)(\w)/$1<\/p>\n<p>$2/gsi;
$str =~ s/^(<\/p>)\n*(.+)$/$2$1/gsi;

print $str;