Perl port of saxtract