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);
No good deed ever goes unpunished. -- (attributed to) Oscar Wilde
In Section
Seekers of Perl Wisdom