while ($mystring=~ /(.)/gs) { 
        my $char= $1;
        &do_whatever_with ($char);
}
[download]

provided you mean character-by-character if the string is unicode.