my $date = "2012-01-12";
$date =~ s/\-//g;
print "date is : $date\n";