perl -E "next unless /buy ([0-9]+) (.+) for \d+ each from/; $x{$2}+=$1; END { say qq{Purchases: \n}, join qq{\n}, map sprintf(q{%40s (%d)}, $_, $x{$_}), sort { $x{$b} <=> $x{$a} } keys %x }" PATH_TO_YOUR_MAFIA_SESSION_LOGS