Help for this page
for $x ($string=~/(.)/g) { &WHATEVER ($x); }
while ($string=~/(.)/g) { &WHATEVER ($1); }