sub Wanted
{
    if ( !/\S\.html?$/i ) {
        warn "$root$File::Find::name skipped\n";
    }
    elsif ( !open( IN, "<", $_ )) {
        warn "open for read failed on $root$File::Find::name : $!\n";
    }
    else {
        my @lines = ();
        my $line;
        my altered = 0;
        while ( defined( $line = <IN> )) {
            if ( $line =~ /<meta\s+name="revision"\s+content=\s*$/i ) {
                $line =~ s/\s*$//;
                my $append = <IN>;
                $append =~ s/^\s+//;
                $line .= $append;
                $altered++;
            }
            push @lines, $line;
        }
        close IN;
        if ( $altered ) {
            open( OUT, ">", $_ ) or
                die "open for write failed on $root$File::Find::name : $!\n";
            print OUT @lines;  ## NB: no need for quotes here
            close OUT;
        }
        warn "$root$File::Find::name finished with $altered changes\n";
    }
}