#!perl -p
s#\d+#y/ /*/;sqrt(eval)/"$'$_"#ge