#! 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>;
}