next if $file =~ m/^\.htm$/i;   
next unless $file =~ m/\.htm$/i;  # not this?