Select Code to Download

@a = ("1", "2", "3"), "4", ("5", "6"), (), "7";

@a = qw(1 2 3 4 5 6 7)

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

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

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

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