Как добавить символ после каждых 4 символа через регулярное выражение?

Question

[Дмитрий Кузьмин]

Есть строка вида: 1234567890ABCDEF
Нужно через perl regexp привести ее к виду \u1234\u5678\u90AB\uCDEF
Т.е перед каждыми четырьмя символами поставить \u .
Не могу сделать выражение, которые бы было шаблоном для этого.

Answer 1

[amidart]

$ perl -le '$s="1234567890ABCDEF"; $s =~ s/(\w{4})/\\u$1/g; print $s'
\u1234\u5678\u90AB\uCDEF

Comments

[Дмитрий Кузьмин]

Класс. Спасибо работает!