#!/usr/bin/perl

use strict;
undef $/;
#$/='';

while(<>){
   s/^\s*/\n/;

   s/\n(\S+) \[.*/\\begin{ptd}{$1}/;
   s/\n"([^" ]+)" .*/\\begin{ptd}{$1}/;

   s/ +"([^" ]+)".*?(\d(\.\d*)?),/\t\\ww{$1}{$2}/g;
   s/ *- *(\S+)\s*\|\s*(\d+\.\d\d).*/\t\\ww{$1}{$2}/g;

   s/\n[ \t]*count\s*=> *(\d+),/[$1]/;
   s/\n[ \t]*trans\s*=> *\{//;
   s/\n[ \t]*\},//g;

   s/\s*$/\n\\end{ptd}\n/;
   print;
}

__END__

"esquecer" => {
  count => 58,
  trans => {
        "forget" => 0.73447412,
          "lose" => 0.03294229,
          "dump" => 0.01667341,
    },
},


imaginar [257 occurrences]
 -        imaginar | 27.2201%
 -          pensar |  6.3019%
 -           supor |  1.1365%
 -             ver |  0.9684%
 -       perguntar |  0.9303%
 -           saber |  0.3530%
 -          sentir |  0.2858%
 -             ter |  0.1944%
 -           achar |  0.1483%
 -        perceber |  0.0850%
 -       descobrir |  0.0774%
 -           haver |  0.0450%
 -      pressentir |  0.0375%
 -        calcular |  0.0343%
 -           notar |  0.0308%
 -              ir |  0.0211%
 -       adivinhar |  0.0206%
 -           poder |  0.0194%