my ($toss, @list) = split /\s*[A-Za-z]+\s*\=\s*/;