substr( $_, 0, index( $_, '.')) =~ tr/a-z/A-Z/;

##</code><code>##

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