% perl -w -e'use strict; $\ = "\n"; while ($_ = shift @ARGV) { print "$_: ", /[^.]/ ? "true" : "false"; }' aaa ...
aaa: true
...: false