while ($file=<HIPORT>)

##</code><code>##

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