#!perl -plaF\b
$_=join$",@F,'=',eval'('x s/\D/)$&/g.$_