use Date::Format; use Date::Language; use Date::Parse; my $lang_date = Date::Language->new('German'); while (my $date_string = ) { chomp($date_string); next if not length $date_string; print "$date_string ist Unixtime ", $lang_date->str2time($date_string), " und ", $lang_date->time2str( '%d.%m.%Y %T (%Z)',$lang_date->str2time($date_string) ), "\n"; } =for output ergibt: 1.3.1999 ist Unixtime 915318000 und 03.01.1999 00:00:00 (CET) 1 März 1999 ist Unixtime 920242800 und 01.03.1999 00:00:00 (CET) 1. März 1999 ist Unixtime 920242800 und 01.03.1999 00:00:00 (CET) 1/3/1999 ist Unixtime 915318000 und 03.01.1999 00:00:00 (CET) =cut __DATA__ 1.3.1999 1 März 1999 1. März 1999 1/3/1999