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