my($ip,$name,$proto,$email) =~ /^(\S*) (\S*) (\S*) (\S*)$/;