Help for this page
while (<>) { chomp; last if /\S/; } print "You said: $_\n";
my $in; while (local $_ = <>) { chomp; $in = $_, last if /\S/; } print "You said: $in\n";