Select Code to Download

my $foo = 'a';
for my $string ('b'..'z') {
    $foo =~ s/./$string/o;
    print "$foo\n";
}