@a = split(' ', $line, 2);