Or:

my $str = 'ABCDEFG';
for (0..(length($str)-1)) {
    print substr($str,$_,1)."\n";
}
[download]

I just like substr :)