while ($file=~/\n$/)