perl -i.bak -pe 's/^\x22\d+\x22/++$i; qq{\x22$i\x22}/e;' file