(split(/\./, $string))[0]