my @arr = split(/\s+/, <>);