Select Code to Download

#!/usr/bin/perl
use strict; use warnings; use autodie;
...
        }
    }
}

$ perl 1041480.pl
----------- SEARCHING DOCUMENT 0 ---------
...
----- searching: /root/part/sect/header
----- searching: /root/para
<para>This is a design XZY document for Project</para>