webstump/scripts/strip-ats.pl

   1 #!/usr/bin/perl
   2
   3 $after_ats = 0;
   4
   5 while( <STDIN> ) {
   6
   7   if( $after_ats ) {
   8         print;
   9   } elsif( /^\@\@\@/ ) {
  10         $after_ats = 1;
  11   }
  12 }