$zahl=~y/,/./;