Code:
my @in = split /\n\r?\n\r?/, $_[0];Um, I think you mean \r?\n\r?\n
And what is the point of joining using \n\n and then substituting with <br><br>. Why not just use <br> in the first place?
Code:
sub { my @parts = split /\r?\n\r?\n/, $_[0];
my $desc1 = shift @parts;
my $desc2 = join "<br /><br />", @parts;
return { Description1 => $desc1, Description2 => $desc2 }
}