@names = split m:each:2nd/\s+/, $string;