w3mstracetodump

   1 #!/usr/bin/perl -n
   2
   3 # strace -s70000 -ot w3m ./form.html
   4
   5 next unless
   6     (m/^connect\((\d+),.*AF_INET/ and $fd = $1) ..
   7     m/^close\($fd\)/;
   8
   9 next unless s{^write\($fd, "}{};
  10 s{", \d+\)\s+= \d+\n}{};
  11 s{\\r}{\r}g;
  12 s{\\n}{\n}g;
  13 s{\\(.)}{$1}g;
  14 print or die $!;
  15