$date="201004061749"

  DB<153> p $date
201004061749
  DB<154> ($year,$mon,$day,$hour,$min)=split(/(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})/,$date)

  DB<155> p $year

  DB<156> p $mon
2010
  DB<157> p $day
04
  DB<158> p $hour
06
  DB<159> p $min
17