#! usr/local/perl 
use utf8;

sub InRussian{
	return <<'END'; 
+utf8::Cyrillic
+utf8::Punctuation 
END
}

print s/[\P{InRussian}]//g;