sub replace {

	my $file = shift;

	open FILE , $file or die "oups";

	my @BUFFER = <FILE> and close FILE;

	my @OUT_BUFFER;
	
	foreach my $line ( @BUFFER ) {
	
		if ( $line =~ /~~/ ) {
		
			my @SPLITTED = split( /~~/ , $line );

			foreach ( @SPLITTED ) {

				if ( $_ =~ /\$/ ){

					my $tmp = eval $_;

					$line =~  s/~~\$.*~~/$tmp/;
				}
			}
		}
		push ( @OUT_BUFFER , $line );
	}
	print @OUT_BUFFER;
}

##</code><code>##

							~~$french_month_name{$month}~~ 
							20~~$year~~
						</td>
						<td colspan="2" align="right">
							<div id="date">
								~~$today_day_name~~ 
								~~$today_day_display_number~~ 
								~~$french_month_name{$today_month_number}~~ &nbsp;
							</div>
						</td>
					</tr>
					<tr>
						<td class="titlebar1">
							
						</td>
						<td class="titlebar2" width="80px" align="right">
							<a class="white" href="~~$cgi_dir~~
							/agenda.pl?user=
							~~$user~~&month=
							~~$prev_month~~&year=
							~~$down_link_year_num~~">
								&raquo; ~~$french_month_name{$prev_month}~~  &nbsp;
							</a>
						<td class="titlebar2" width="80px" align="right">
							<a class="white" href="~~$cgi_dir~~
							/agenda.pl?user=
							~~$user~~&month=
							~~$next_month~~&year=
							~~$up_link_year_num~~">
								&raquo; ~~$french_month_name{$next_month}~~  &nbsp;
							</a>
						</td>
					</tr>
				</table>
			</div>



##</code><code>##

					<div class="cell ~~$cell~~" style="background-color : #f9f9f9">
						<div class="date">
							&nbsp; ~~$day_prev_month~~
						</div>
					</div>