Help for this page

Select Code to Download

Select or download this
```
while (<FILE>) {
}
```

Select or download this

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 ...
}