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

##</code><code>##

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