A POE filter for FreeSWITCH (http://www.freeswitch.org) that parses event/log/etc... messages for you. You must ask for events in plain mode.
perldoc POE::Filter::FSSocket for more info and an example.