use strict;
        use warnings;

        use File::Find;

        my @dirs = qw( . );

        find ( { wanted => \&change, no_chdir => 1}, @dirs );

        sub change
        {
            my $file = $File::Find::name;
            
            if ( -f $file && $file =~ /\.html$/ )
            {
                open(IN, $file) or warn "CANT OPEN FILE!\n";

                my $buffer;

                {
                    local $/ = undef;
                    
                    $buffer = (<IN>);
                }
                
                close IN;
                
                my $changecount = ($buffer =~ s/FLORIDA/NEWWORD/gi);

                if ($changecount)
                {
                    open(OPF,">$file") or warn "NOT OPENING FILE FOR MOD, $!\n+";
                    print OPF "$buffer";
                    close OPF;
                }
            }
        }