#!perl -pl 0while/ /?s/\d*A/1+$&.0/e||($_+=$'):s/(.*)0/$1&&~-$1.A/e