Select Code to Download

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

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

$str = "abc";
{
...
    print $_1;
  }
}