#!/usr/bin/perl

use strict;
use warnings;

my $Inhalt = "03.01.0000.0001";

my @array=split(/\./,$Inhalt);

my $Inhalt2 = $array[3] + 1;

$Inhalt2 = sprintf("%04d", $Inhalt2);

print $Inhalt2;