#!/usr/bin/env perl
#Reverses the actions of bobby.pl
#example usage: unbobby.pl *.html
for $file (@ARGV){
  print $file,"\n";
  open INFILE,"<$file"; #open file for reading
  @all=<INFILE>;
  close INFILE;
  open OUTFILE,">$file"; #reopen file for writing
  for $line (@all){
    $line=~s/ alt="pix"//g; #replaces any ' alt="pix"' with nothing
    print OUTFILE $line;
  }
  close OUTFILE;
}