next if $phile =~ /.../;