#!perl -pa
s!\d+!@F=@F[1,2,0];sqrt$&*@F[1]/@F[0]!ge