in reply to rearranging a string.new

You may want something more like: 
my $newstring = substr($string,4,2) . substr($string,6,2) . substr($st
+ring,0,4);

[download]
No good deed ever goes unpunished. -- (attributed to) Oscar Wilde

In Section Seekers of Perl Wisdom