1 while($a=b $a=~/(.{2})(.*)/g);