@MSGID: 2:460/5858 68809832
@REPLY: 2:5015/46 687f919f
@PID: GED+W64 1.1.5-b20250401
@CHRS: CP866 2
@TZUTC: 0300
@RealName: Brother Rabbit
@TID: hpt/w64-mvcdll 1.9 2023-01-07
Hi Nil!

22 Jul 25 16:23, Nil A -> Andrey Mundirov:

 NA> Также поспрашивал его, как замену всяких буков русских сделать, точнее
 NA> из латиницы обратно в русский. Естесно, он предложил заменить по
 NA> шаблону, определив сначала, что слово больше чем на половину уже
 NA> состоит из русских букв.

my $lat = `EeTYyOoPpAaHKkXxCcBM`;

 if ( $w =~ /[а-яА-Я]+/ && $w =~ /[$lat]/ ) {
        ....
 }


Have nice nights.
       Stas Mishchenkov.

--- Хорошие привычки продлевают жизнь, а плохие делают ее приятной.
 * Origin: Lame Users Breeding. Simferopol, Crimea. (2:460/5858)
SEEN-BY: 301/1 460/58 256 1124 5858 469/335
5001/100 5015/42 46 120 255 519
SEEN-BY: 5019/40 5020/570 715 848 1042 4441 12000
5023/24 5030/49 722 1081
SEEN-BY: 5053/55 58 5054/8 30 5058/104 6078/80
@PATH: 460/5858 58 5015/46 5020/4441