while (@file_contents) {  $totalline++; }

##</code><code>##

print "Position 1: @file_contents\n";