I don't really know the first thing about Cyrillic, so you'll probably have to play around with this before making it work like you want it to. It makes use of Unicode character properties, which you can start learning from perluniprops[0]:
$text =~ s/[\p{Cyrillic}\p{Block: Cyrillic}\p{Block:
Cyrillic_Extended_A}\p{Block: Cyrillic_Extended_B}\p{Block:
Cyrillic_Supplement}]+//g;
Brian.
[0] http://perldoc.perl.org/perluniprops.html
