Select Code to Download

use strict;
use warnings;
...
while($string =~/./g){
    print "$&\n";
}

use strict;
use warnings;
...
for my $str (@string){
    print "$str\n";
}