roboticus, thank you so much. I have been racking my brain on this problem for a long time now. Me and regex do not get along very well at all. The output is nearly flawless now except I am getting a one carriage line or new line symbol in front of each sentence, but other than that it looks great here is my extremely simple parsing code:

use warnings; use strict; use File::Slurp; my $s = read_file("calldata.txt"); $s =~ s/\x1b\[0-9;+A-Za-z//g; write_file("calldata.txt", $s); __END__

I looked those symbols up with a hex editor and it looks like they are 0d and 0a. Once again, thank you very much for the help.