<perl>
if ($cmd eq "add")
{
$_put{Betrag} = sprintf('%.02f',$_put{Betrag});
$_put{Betrag} =~ tr/./,/;
$_put{Betrag} = reverse $_put{Betrag};
$_put{Betrag} =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
$_put{Betrag} = reverse $_put{Betrag};
out"$_put{Betrag}<br>";
}
</perl>