perl -e 'while (<>!~/^\s$/){print "Not empty\n"}'