my ($year,$mon,$day,$hour,$min) =
    $date =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})\z/;

##</code><code>##

my ($year,$mon,$day,$hour,$min) = unpack('A4 A2 A2 A2 A2', $date);