If the 0 is in the file, you can get rid of it by using print 0+$line. (Funny how adding a 0 removes a 0 *grins*. I suppose you could use print $line-0 *grins evilly*.)