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