while (<FILE>) {
}

##</code><code>##

my $re = qr/^$year-.{21} IP (?:\Q$IP1\E > \Q$IP2\E|\Q$IP2\E > \Q$IP1\E/;
while (<FILE>) {
    next unless /$re/;
    ... do something ...
}