Select Code to Download

my $string = '20050516';

...
(my $newstring = $string) =~ s/(\d{4})(\d{4})/$2$1/;
warn $newstring;