[問題] 字串分割

[snowfly (@@)]

請問各位前輩

如果我有一個字串(字數不一定)

我要每四個字元插入"."，我該如何寫呢？

example

input:  A1B2C3D4E5F6G7H8
output: A1B2.C3D4.E5F6.G7H8

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 36.239.6.76
推 dryman:$str = "A1B2C3D4E5F6G7H8";
→ dryman:$str =~ s/(.{4})/\1\./g && $str  =~ s/\.$//;
→ dryman:print $str; ==>  A1B2.C3D4.E5F6.G7H8
推 dryman:喔，想到了更好的解法，把第二行換成
→ dryman:$str =~ s/(.{4})(?=.)/\1\./g;
→ snowfly:謝謝dryman , 我原本是要用join的方式，
→ snowfly:但是想不出來每四個split的方法..@@