$line =~ s{wert="(\d+)"}{sprintf 'wert="%d"', function($1) }e;