#! /usr/bin/perl

$ARGV = shift;
$filename=$ARGV.".tmp";
$count=0;
$flag=0;
open(INFILE,$filename);
open(OUTFILE,">$ARGV");
while(($line=<INFILE>)&&($flag==0))
{
  if(index($line,"*",0)==0)
  {
    print OUTFILE $comline;
    $comline = $line;
    $count++;
  }elsif(index($line,"Total",0)==0)
  {
    print OUTFILE $comline;
    print $line;
    $flag=1;
  }else
  {
    chop($comline);
    chop($comline);
    $comline.=$line;
  }
}
close(INFILE);
close(OUTFILE);
print "Total route $count";