my $newstring = substr($string,4,2) . substr($string,6,2) . substr($string,0,4);