perl -e " print 1 if q{ } =~ /\x20/ "