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