my $d = '20140527';
my $reversed = pack( 'A2A2A4', reverse unpack( 'A4A2A2', $d ) );