in reply to $. Input line number

if ($. % 3 == 1) {...}
The PerlMonk tr/// Advocate

In Section Seekers of Perl Wisdom