Help for this page

Select Code to Download

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

Select or download this

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