my $string = '20050516';

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

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

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.