while ("abcdefg" =~ /(.)/g) {
  print $1;
}