perl -pi.bak -e '$_ = ( split /,/, $_, 2 )[1];' myfile.txt