#Hin
my $date = "07.10.2003";
$date = join "-",reverse split /\./,$date;
print $date;
#Und zurück
$date = join ".",reverse split/-/,$date;
print $date;