use strict;
use warnings;

my $p;

while (<DATA>)
{
    chomp;

    if ($p = 3 .. 5)
    {
        print "$_: \$. is $.: p is $p\n";
    }
}

__DATA__
line 1
line 2
line 3
line 4
line 5
line 6
line 7