1#!/usr/bin/perl -w
    2
    3use File::Slurp qw(read_file);
    4
    5die unless $ARGV[0];
    6my $f = $ARGV[0];
    7my $state = 0;
    8if (-f $f) {
    9  my $c = read_file($f);
   10  foreach my $line (split /\n/, $c) {
   11    if ($state) {
   12      if ($line =~ /^([\d\.]+):\s*\(([^\)]+)\)\s*\[([\d\.]+)\]$/) {
   13	# 0:   (ACTION1 OBJ1 OBJ2) [1]
   14	# 0.101: (pay-on-time jessbalint andrewdougherty towardsbillcomcastfromjessbalint201708)  [0.150]
   15	print "$1:   (".uc($2).") $3\n";
   16      }
   17    }
   18    if ($line =~ /^; Time .*$/) {
   19      $state = 1;
   20    }
   21  }
   22}