sub findwrappoint
  {
  my ($string, $width) = @_;
  my $cut = 0;
  my $char = 0;
  while( $string =~ /(\e[[\d;]*m)|([^ ]+)|( +)/g )
    {
    $3 and $char <= $width and $cut = $+[3];
    $char += $1 ? 0 : $2 ? length $2 : length $3;

##</code><code>##

    $char > $width and return substr( $string, 0, $cut, ''), $string;
    }
  return $string, '';
  }

##</code><code>##

my $string2 = qq{01:11:43:09 [CC] Roger. Go into BLOCK and we'll uplink a new CSM state vector, and entry target load. 73 hours 00 minutes: stop PTC 0 roll at 73; do a little more about that a little.};
my $width = 91;
my $first_indent = 15;
my $next_indent = 15;
say "\n$string2\n";
say ta_wrap(
    $string2, $width,
    {   flindent => ' ' x $first_indent,
        slindent => ' ' x $next_indent
    }
);

01:11:43:09 [CC] Roger. Go into BLOCK and we'll uplink a new CSM state vector, and entry target load. 73 hours 00 minutes: stop PTC 0 roll at 73; do a little more about that a little.

Use of uninitialized value in addition (+) at /Users/chap/private/perl/test_wrap line 28.
               01:11:43:09 [CC] Roger. Go into BLOCK and we'll uplink a new CSM state
               vector, and entry target load. 73 hours 00 minutes: stop PTC 0 roll at 73; do
               a little more about that a little.

##</code><code>##

String=<<EOF;
05:08:28:30 [LMP] Mike, you get a waste-water dump at GET 30 plus 15 degrees pitch to 0 degrees pitch to 0 degrees per hour with on the increase, and the force of impulsion will depend on the lunar attraction. It is very destructive, and ends by enlarging the bore of the country up across north of track. Over.
EOF
String=<<EOF;
02:02:40:59 [CC] Apollo 11 has got VHF A Simplex on whenever you are. We're ready to start PTC at approximately 0 degrees per hour with on the DSKY. Forward and up; now you are going over Mount Marilyn and the shock be thereby destroyed. His object now was this with the coordinates you have a recommended configuration for you. We'll just keep it bearable. But since entering the cone of shadow these last two hours, had the shell could not see Tranquility. What were you marking on? Over.
EOF

##</code><code>##

$char += $1 ? 0 : $2 ? length $2 : length $3;

##</code><code>##

$char += $1 ? 0 : defined $2 ? length $2 : length $3;