Select Code to Download

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

while (<>) {
    if ( not /^<title>/ ) {
...
    }
    print;
}