#!perl -p
s;@{['(-?\d+).*?'x4]};${\(@a=sort{$b-$a}map{$1*$_,$2*$_}$3,$4)},$a[0]