$_.=s/<--date\/\/>/$date/;

##</code><code>##

    $_ =~ s/<--date\/\/>/$date/;
    ...

##</code><code>##

    s/<--date\/\/>/$date/;
    ...