Text::BibTeX provides objected oriented parsing and formatting of
BibTeX files from within perl.

     http://www.gerg.ca/software/btOOL/