s/(?!<title>(.*?)\n/<para>$1<\/para>/isg;

##</code><code>##

while (<>) {
    if ( not /^<title>/ ) {
        chomp;
        $_ = "<para>" . $_ . "</para>\n";
    }
    print;
}