Select Code to Download

for (@array) {
    if (condition($_)) {
        $_ = transform($_);
    }
}

$_ = transform($_) for grep condition($_), @array;

my @array = qw( John Jake and Jasper );
$_ = uc($_) for grep /^a/, @array;
print("@array\n");  # John Jake AND Jasper