lost in eval and regexp

Select or download this

sub replace {

...
    }
    print @OUT_BUFFER;
}

Select or download this

                            ~~$french_month_name{$month}~~ 
                            20~~$year~~
...
            </div>

Select or download this

                    <div class="cell ~~$cell~~" style="background-colo
+r : #f9f9f9">
                        <div class="date">
...
                    </div>

Select Code to Download