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

# code 2
$str = "abc";
print $1 if $str =~ ?(.)?g;
print $1 if $str =~ ?(.)?g;
print $1 if $str =~ ?(.)?g;