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