1#!/usr/bin/perl -w
    2
    3use File::Slurp qw(read_file);
    4
    5die unless $ARGV[0];
    6my $f = $ARGV[0];
    7if (-f $f) {
    8  my $c = read_file($f);
    9  foreach my $line (split /\n/, $c) {
   10    if ($line =~ /^\s*$/) {
   11      print $line."\n";
   12    } elsif ($line =~ /^\s*;/) {
   13      print $line."\n";
   14    } elsif ($line =~ /^([\d\.]+):\s+\(([^)]+)\)\s+\[([\d\.]+)\]$/) {
   15      print "$1:   ($2) $3\n";
   16    } else {
   17      print "<$line>\n";
   18    }
   19  }
   20}