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