Help for this page

Select Code to Download

Select or download this

$ perl -E 'say sprintf("3,%d", 14)'
3,14
...

$ perl -E 'say sprintf("3,%d", 14) =~ y/,/./r'
3.14