in reply to Script to update a value in text file
perl -MIO::All -E 's/(\d+)/$1+1/e for @{io("/tmp/amvarma.txt")}' [download]