@line = map { s/(\d),(\d)/$1$2/g; $_ } split;