perl -e "foreach(qw(abc a 00)){print qq($_\n) if m/\S{2,}/}"