Date::Calc läuft!

[Gary]

Hallo zusammen

Ich habe hier folgenden Schnipsel:
--------------------------------------------
###########################

Ablaufdatum - Splitting

###########################

my $dbtag = substr($ablauf, 0, 2);
my $dbmonat = substr($ablauf, 3, 2);
my $dbjahr = substr($ablauf, 6, 4);

#################

Datum - Heute

#################
($year,$month,$day) = Today();
--------------------------------------------
Ablaufsplitting ist nötig, da das Datum als String so vorliegt:"26.08.2010".
Das funktioniert auch einwandfrei.

Die Funktion Today liefert mir den heutigen tag so:"29.8.2010"

So jetzt kommts:
Für eine Funktion die weiter unten folgt, darf aber das Datum aus der Datenbank keine führenden Nullen haben. Also statt:

$dbtag = 26
$dbmonat = 08
$dbjahr = 2010

Darf das Datum bei Tag und Monat nur so sein:

$dbtag = 26
$dbmonat = 8 <-- _nicht "08"
$dbjahr = 2010

Ich wollte da was mit substr basteln:
---------------------------------------------------------------------------
if (substr($ablauf, 0, 1) eq 0){
                               lösch die erste Zahl und pack das in $dbtag
                               }
if (substr($ablauf, 3, 1) eq 0){
                               lösch die erste Zahl und pack das in $dbmonat
                               }
---------------------------------------------------------------------------

Also wie lösche ich eine durch substr ermittelte Stelle in einem Skalar?