Select Code to Download

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

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