c:\@Work\Perl\monks>perl -wMstrict -le
"my $string = 'foobar';
 ;;
 for my $offset (0 .. length($string) - 1) {
   printf qq{'%s' }, substr $string, $offset, 1;
   }
"
'f' 'o' 'o' 'b' 'a' 'r'