my ($result) = $got =~ /^[^.]*/g;