Select Code to Download

$s =~ /(string)(?{
  print $^N, $/;
})(?!)/;

my @letters = ('a'..'z');
for my $letter (0..$#letters) {
  $letters[$letter] =~ /(?{ print $letter })(?!)/;
}