my @content = split (/\,/,$_);
my @datesplit = split(/\_/,$content[0]);
$csvprint = "$datesplit[0],$datesplit[1],$content[1]\n"; 

##</code><code>##

2009-12-24_,5587