data invertita

[Mich_]

my $data = "gg/mm/aaaa";
my $dat = data1.split(/\//);
my $data = dat[2].'/'.dat[1].'/'.dat[0];

Oppure:
my $data = "gg/mm/aaaa";
$data =~ s/(\d+)\/(\d+)\/(\d+)/$3\/$2\/$1/;