$date_string = "0406141832";
($year,$month,$day,$hour,$minute) = (
  $date_string =~ /(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/
);