#!perl -p
s;(-?.,-?.).*?((?1));$a[not@a=sort{$a-$b}map eval,<{$1}\\*{$2}>],$a[3]