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}