$ perl -e '@positive_int = grep {$_ >=0 } (12,-85,36,-10,75,-38); print "@positive_int"' 12 36 75