Capslock override (toCaps, toLower, Capitalized)

CapsLock::
    SetCapsLockState, Off
    oldClipboard := Clipboard
    Send, {ctrl down}c{ctrl up}
    if (StrLen(Clipboard) = 0) {
        Clipboard := oldClipboard
        exit
    }
    StringUpper, uppered, Clipboard
    StringLower, lowered, Clipboard
    if (lowered == Clipboard)
        Clipboard := uppered
    else if (uppered == Clipboard)
        Clipboard := RegExReplace(lowered, "((?:^|[.!?]\s+)[a-z])", "$u1")
    else
        Clipboard := lowered
    Send, {ctrl down}v{ctrl up}
    selectionLength := StrLen(Clipboard)
    Send, {shift down}{Left %selectionLength%}{shift up}
    Clipboard := oldClipboard