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