Select Code to Download

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

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