while (<>) { chomp; last if /\S/; } print "You said: $_\n";