perl -pi.bak -e "m/^10/ and $_ = $/ . $_;" filename.txt