Placate perlcritic