use POSIX;

while (<DATA>) {
   $_ =~ s/<DATUM>/datum()/eg;
   print
}

sub datum {
   my $jetzt = strftime ("%a %b %e %H:%M:%S%Y", gmtime);
   return $jetzt;
}

__DATA__
Dies ist ein <DATUM>
kein Datum
<DATUM>
Test