function Foo()
    let pat = '$(.{-})$'
    if line =~ pat
        execute 's/' . pat . '/\(1\)/'
        call cursor('.', matchend(getline('.'), '\)'))
    endif
endfunction

inoremap $ $<C-O>:call Foo()<CR>