<perl>

$_put{Preis}=~s/,/./; # damit wird das erste komma in einen punkt

# soviel wie ersetzen.

# egal was da nun in der variablen drin steht, das sprinf "%.2f" macht
# daraus auf jeden fall einen zahlen wert mit zwei stellen nach dem punkt.
# d.h. auch wenn nix in der variablen drinn steht, macht das sprintf "%.2f"
# daraus 0.00
# auch wenn da keine zahl sondern irgendwas anderes drin steht, macht das
# sprintf "%.2f" daraus 0.00

</perl> 

$err.="<font face=verdana,arial,helvetica size=2 color=#FF0000> -Preis<br>" if $_put{"Preis<"}=~s/,/./;
dann wer $err.= erst dann aus geführt, wenn der substitutionsoperator auch was ersetzt hat. ersetzt er nix, dann war auch kein komma vorhanden. wenn er aber aus dem komma einen punkt gemacht hat, liegt ja eigentlich kein fehler mehr vor auch wenn der user was "falsches" eingegeben hat.
wenn du nur auf ein komma testen wolltest, hätte auch die funktion "$err.="..." if ($_put{Preis}=/,/);" gereicht ;-).

if ($_put{Preis}==0){$_put{Preis}=1E+10;}