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