print $line until(!($line =~ /\s+/))