#! perl -slw
use strict;
use Data::Dump qw[ pp ];

open I, '<:raw', $ARGV[0] or die $!;
my $s = do{ local $/; <I> };
close I;
$|++; print length $s;

my @c; ++$c[ ord $1 ] while $s =~ m[(.)]g;
pp \@c; scalar <STDIN>;

for( my $i = $#c; $i; --$i ) {
    next unless $c[ $i ] > 2;
    my @p; $p[ @p ] = $-[0] while $s =~ m[${ \chr( $i )}]g;
    my @spacing = map{ $p[ $_ + 1 ] - $p[ $_ ]   } 0 .. $#p-1;
    print ">>@spacing"; scalar <STDIN>;
}



##</code><code>##

5644800
[
  undef,
  1455300,
  1455300,
  1656200,
  386120,
  429240,
  184240,
  56840,
  11760,
  7840,
  undef,
  1960,
]


>>2134 3626 2134 3626 2134 3626 2134 3626 2134 3626 2134 3626 ... for 1960 values.

Use of uninitialized value within @c in numeric gt (>) at C:\
>>685 644 813 638 813 644 685 838 685 644 813 638 813 644 685 ... for 7840 values

>>618 26 717 739 8 739 717 26 618 775 2 775 618 26 717 739 8 739 717 26 618 775 2 775 ... for 11760 values.
Terminating on signal SIGINT(2)