Apologies: I'm aware that these lines are much too long, unfortunately, you can't really see the structure of the data if I wrap them.

I've reformatted your question and it looks like what you're actually trying is to limit the string to 100 chatracters, like this :

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

this output  : (?)

2000/06/19 15:22:13  NIB1_BSX                Communications Alarm     
+  Critical  OMC and equipment
2000/06/19 15:22:15  NIB1_MSC                Communications Alarm     
+  Critical  OMC and equipment
2000/06/19 16:03:25  [1]NIB1_MSC.0.0.3.0     Communications Alarm     
+     Minor  E1 Port Receive C
[download]

you can use the substr function

substr($line, 99, 10000000,"");
[download]

should do what you want.

#!/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
[download]