Help for this page
D:\ENV>perl -e "$x = qq#aaaaaaa#; print join '#', split /(..)/, $x" #aa##aa##aa#a