In addition to what others say, you could use Date::Manip to parse the date from any format (including this one) and extract the parts:

use Date::Manip; 
$date = "201004061749"; 
($year, $mon, $day, $hour, $min) = UnixDate($date, qw"%Y %m %d %H %M")
+;
[download]