#!c:perl\bin\perl.exe

perl -pi.bak 's/,//' testdata.txt

#$line =~ tr/,//d;