sub float2money{
    my $zahl =$_[0];
    $zahl = int(sprintf("%.0f", $zahl*100));
    return "0,00" if $zahl == 0;
    $zahl =~ m/(\d?)(\d)$/;
    $zahl = int($zahl/100);
    my $erstestelle = $1;
    $erstestelle = 0 unless $1;
    my $zweitestelle = $2;
    $zweitestelle = 0 unless $2;
    return $zahl.",".$erstestelle.$zweitestelle;
}

print float2money(-0.02);