# substr no good, this is a simplified regexp
while( ($b, $c) = $a =~ /(.)(.)/g ){
  #do stuff
}

##</code><code>##

$p = pos($a) ? 1 : 0;