perl -e '@foos = grep { /[13579]/ ? "foo" : "" } (0..50); print join "\n", @foos; print "\n\n"'