At work, we implemented the most severe recommendation from the site, because our customers insisted on it. Nevertheless, we only use the output of their
Perl::Critic rules as recommendations only, because we don't agree with some of them. So, I'm not sure it's worth the effort.
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]