/ \d+/,print"@{[$l=sqrt$_*$'/$&,$_/$l,$'/$l]}
"for<>