Replacing N-th character in a string in R

Question

In Canada postals codes are in this form "B7J 6B1". For cleaning postal codes, I need to replace all typos so that "81J 8BL" becomes "B7J 6B1".