#!/usr/local/bin/perl -pi
if ( $inalt == 1 ){
   if ( s/^[^"]*\"// ){
        $inalt=0;
   }
   else{
   s/^.*\n//;
   }
}
s/alt=\"[^"]*\"//gi;
if ( s/alt=\"[^"]*\n/\n/i ){
   $inalt=1;
}