perl -e "map {print qq($_ ) unless $_ =~/\d[245680]$/ } @ARGV" 2 3 5 7 11 13 17 19 23 29 37
2 3 5 7 11 13 17 19 23 29 37