#!perl -p
$%+=$&while s;.(\PP+,){$%}\K.\d*;💩