Macro to replace 'space' with underscore

[Ivan]

I would like to make a macro that upon pushing caps-lock replaces all space characters with underscores. It should stop replacing when either caps-lock is entered again or user pushes space bar.
Can someone give me some hints on this?