substr $_,
       0,
       index( $_, '.'),
       uc( substr $_, 0, index( $_, '.'));