Select Code to Download

use strict;
use warnings;
...
    print $str, "\n";
    last if length($str)> 10;
}

while ($str =~ /(?<!b)a/g) {
...