undo

   1 #!/usr/bin/perl -00
   2
   3 $* = 1;
   4 while (<>) {
   5     if (/^do_(\w+)/) {
   6         open(OUT, ">>do/$1");
   7     }
   8     print OUT;
   9     chop;
  10     chop;
  11     close OUT if chop eq '}' && chop eq "\n";
  12 }