my $date='**2010-02-09**';
my $line = $aData[0];
$line =~ s/\$date/$date/g;

print STDERR "------------DATA #1 ----------------\n$line";

$date='**1910-02-09**';
$line = $aData[0];
$line =~ s/\$date/$date/g;

print STDERR "------------DATA #2 ----------------\n$line";