in reply to foreach (each character in string..)?

Here's one way: 
foreach(split('', $string)) { }

[download]

In Section Seekers of Perl Wisdom