#!/usr/bin/perl
use warnings;
use strict;
use IO::File;
use File::Find;
#
#
file_find(\&fix_if_file,@ARGV)
sub fix_if_file {
return unless -f $_;
my $fh = IO::File->new($_,'r') or
die "Unable to open $_ for reading: $!";
local $/;
my $fc = <$fh>;
close($fh);
if (# strip out the w3c img callback; replace with alt text
$fc =~ s{]*?alt="([^"]+)"[^>]*>}{$1}img
or
# if it doesn't have alt text, just replace it with Valid HTML
$fc =~ s{]*>}{Valid HTML}img ) {
$fh = IO::File->new($_,'w') or
die "Unable to open $_ for writing: $!";
print {$fh} $fc;
close($fh);
}
}