Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        undef $text;
    }
}

$ bzcat wikipedia-dump.xml.bz2 | xml2 | perl the_script_above enwiki

#!/usr/bin/perl -w
use strict; use warnings;
...
    end_form
    ;
}