my ($maid) = $fields[0] =~ /^(\d*)/;