Perl::Critic::Policy::Freenode::WhileDiamondDefaultAssignment(3pm) on Linux

The text d2a7dcbd57ca, as Debian 10 (Buster) shipped it.

Don't use while with implicit assignment to $_