my $datum = '01.02.2012';

# 1. Variante
my $zahl_1 = join('', reverse split(/\./, $datum));

# 2. Variante, geht auch, wenn führende 0 (Tag/Monat) fehlt:
my $zahl_2 = sprintf('%4d%02d%02d', reverse split(/\./, $datum));

print "$datum\n\$zahl_1: $zahl_1\n\$zahl_2: $zahl_2\n";