Cut perlcritic