my ( $first, $rest ) = split m{\.}, $line, 2;