Help for this page
my ($year,$mon,$day,$hour,$min) = $date =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})\z/;
my ($year,$mon,$day,$hour,$min) = unpack('A4 A2 A2 A2 A2', $date);