You want unpack, which was made for exactly this sort of thing (in addition to scaring off newbie programmers):

my ($year, $mon, $day, $ver) = unpack 'A4A2A2A2', $serialdate;
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print