BEGIN{FS=""}{ for(i=1;i<=(NF-1);i++){ print $i$(i+1) }}
abcd 10001.
ab bc cd d 1 10 00 00 01 1.
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!