tools/stripChangeType.pl

   1 #!/bin/perl
   2
   3 while (<>)
   4 {
   5         if (s/ - \S+ \S+ \d+ \(\S+\)$// == 0)
   6         {
   7                 die "bad string: " . $_;
   8         }
   9
  10         print;
  11 }