USPTO Data and Perl Code