Also mit dem Date::Calc weiss ich nicht wie man den String so formatiert ausgeben kann wie ich das gerne möchte. Habe zwar die Beispiele gelesen, aber so ganz schlau werde ich daraus nicht.

Gibt es keine Funktion mit der man den ersten Buchstaben eines Strings auslesen kann?
Dann könnte ich ja darauf reagieren und sagen wenn es eine 0 ist, dann mach sie weg.