my $cnt_keepers=0;
while (my $ln = <$f>) {
    next if ....

    # Now we've got a line we want to keep
    ++$cnt_keepers;
    if ($cnt_keepers % 5 == 0) {
        ... every fifth line processing ...
    }
    ...
}