perl -MIO::All -E 's/(\d+)/$1+1/e for @{io("/tmp/amvarma.txt")}'