my $find    = '(\\d{2}-\\d{2})-(\\d{4})';
my $replace = '$2-$1';

eval "s/\$find/$replace/"