newlen = (strlen(str) * strlen("</p><p>")) / strlen("\r\n")
       + strlen("</p><p>") + 1;

##</code><code>##

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