while (my $line = <IN>)
{
#  print "line=$line\n";
   next if $line =~/^\s*\w+:/;  # The Run_Time: line
   next if $line =~/^\s*$/;     # A blank line
   $line =~ s/\s*$//;           # No trailing spaces or line ending
   $line =~ s/^\s*//;           # No leading space
   next if $line =~ /^Call/;    # Skip the CSV header line
   
   
   my($call,$bracket) = (split /\|/,$line)[0,-1];
#   print "$call, $bracket\n";   #### nothing printed here either
   # more processing ... not shown..
}