Um...two guesses.

1. You are using negation \P{} and NOT(+A +B) doesn't mean what you intend. Eg. 'not in A and not in B'?

   Maybe you need (something like):

   sub NotInRussian{
       return <<'END'; 
   !utf8::Cyrillic
   !utf8::Punctuation 
   END
   }
   ...
   s/\p{NotInRussian}//g
   [download]

2. It might have something to do with this from the POD?

   A final note on the user-defined property tests and mappings: they will be used only if the scalar has been marked as having Unicode characters. Old byte-style strings will not be affected.

   Does your editor produce unicode source files? Will Perl promote ASCII source to unicode?