神奇的正则

将字符串转换成MAC地址形式
perl -e '$a="52544C23A8B3"; $a=~s/(\w\w)\B/$1:/g;print "$a\n"'

52:54:4C:23:A8:B3