perl -e '
 $a="hello world!";
 while ( $a=~/\G(.)(.)/g ) {
  ($b,$c)=($1,$2);
  print"$b:$c\n";
 }
'
h:e
l:l
o: 
w:o
r:l
d:!