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