my $newstring = substr($string, 4, 4)   # M+D  (was at 4 len 4)
              . substr($string, 0, 4);  # Year (was at 0 len 4)