#!/usr/bin/perl

use warnings;
use strict;

my $datum = "07.10.2003";

my $new_datum = substr($datum,6)."-".substr($datum,3,2)."-".substr($datum,0,2);

print $new_datum;

1;