$file =~ s/(?![<title>](.*?)\n/<para>$1<\/para>\n/isg;