I see your PHP and raise you this Perl:

http://pastebin.com/7UqSFWz7