perl -pi.bak 's/,//' file.out
and 
$line =~ tr/,//d;