$no=123.45; $no=~s/^(\d+)\.(\d+)/$1,$2/;