$str = "abc";
for (1, 2, 3) {
  $str =~ ?(.)?g;
  print $1;
}