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