my $s = 'The quick brown fox jumps over the lazy dog';
print ${ \substr($s, $_, 1) } for 0 .. length($s)-1;
# Output
The quick brown fox jumps over the lazy dog