See perlretut with special attention to substitution, s/,//;