ANTICHAT - Показать сообщение отдельно - [Perl] Замена определенного по счету символа

Тема: [Perl] Замена определенного по счету символа

Показать сообщение отдельно

26.04.2010, 06:54

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

С нами: 10021597

Репутация: 905

Код:

$str =~ s{(\s)}{++$count == 10 ? '[SPACE]' : $1;}ge;