s!(</BODY>)!$footer$1!oi;

##</code><code>##

s!(.+)(</BODY>)!$1$footer$2!ois;