my ($one, $two) = <$input>;