perlcritic -3 level: correct regex/mismatch...