C:\Dokumente und Einstellungen\format_c>perl
my $datestamp = "200401022235";
my @date = $datestamp =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})$/;

printf "%02d.%02d.%04d %02d:%02d",@date[2,1,0],@date[3,4];

02.01.2004 22:35
C:\Dokumente und Einstellungen\format_c>