echo "EVO:0000023" | perl -pe 's/(\d+)/++($_=$1)/e;'