my $str = 'line1\r\nline2\r\n";
my $result = join '</p><p>', split(/\r\n/, $str);