% head /tmp/t?
==> /tmp/t1 <==
use utf8;
print 'бБ' =~ /^[а-я]+$/i ? 'regexp ok' : 'regexp fail', "\n";