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

The text 871cea6bd6a5, as Debian 11 (Bullseye) shipped it.

Don't use while with implicit assignment to $_