perl -pi.bak -e 's/^[^,]*,//' myfile.txt