Select Code to Download

for (@array)
{
    push @newarray, expr;
}

for (@array)
{
    push @newaray, $_ if expr;
}