w3mstracetodump

   1 #!/usr/bin/perl -n
   2
   3 # strace -s70000 -ot w3m ./form.html
   4
   5 next unless s{^write\(7, "}{};
   6 next unless m/^POST|GET/..0;
   7 s{", \d+\)\s+= \d+\n}{};
   8 s{\\r}{\r}g;
   9 s{\\n}{\n}g;
  10 s{\\(.)}{$1}g;
  11 print or die $!;
  12