for $x ($string=~/(.)/g) { &WHATEVER ($x); }

##</code><code>##

while ($string=~/(.)/g) { &WHATEVER ($1); }