open (OBFILE, 'outbound.txt');
open (OBout, '>outbound_output.txt');

while (<OBFILE>) {
  chomp;
  $re = 'chr(9)';
  @array= split(/$re/,$_);
  #print OBout "$date\t$time\t$ani\t$entid\n";
  print "@array\n";

}

close(OBFILE);
close(OBout);