$data = 'username Real Name|email@gmail.com|2|30|'; my ($key, $val) = split /\s+/, $data, 2; $users{$key} = $value;