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

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

After Compline,
Zaxo