perl -le 'print 2010_03_18'
20100318