>perl -wMstrict -le
"my $str = 'abcde';
 my @chrs = unpack '(a)*', $str;
 print qq{'$_'} for @chrs;
"
'a'
'b'
'c'
'd'
'e'