for i in $(seq 1 10); do perl -i.x -lp0e 's/2/4/gs' a; done