perl 5.0 alpha 2
[perl.git] / 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 }