while ($string =~ /./sg) {
      do something with $1