next if $File=~/^\./;