http://www.perlmonks.org?node_id=1021656


in reply to assign a value to $INPUT_LINE_NUMBER

Setting $. when seeking is OK. Sometimes, I even use
seek $FH, $. = 0, 0;

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

In Section Seekers of Perl Wisdom