my($before, $after) = split(/\./, $word); #### my @tokens = split(/\./, $word); #### $word =~ /^[a-zA-Z]+\.[a-zA-Z]*$/;