#!/usr/bin/perl -w

use strict;

foreach (<DATA>) {
    substr($_,99,10000000,"");
    print "$_\n";
}

__DATA__
2000/06/19 15:22:13  NIB1_BSX                Communications Alarm       Critical  OMC and equipment Connection broken
2000/06/19 15:22:15  NIB1_MSC                Communications Alarm       Critical  OMC and equipment Connection broken and up
2000/06/19 16:03:25  [1]NIB1_MSC.0.0.3.0     Communications Alarm          Minor  E1 Port Receive Carrier Loss