my $fen=join('/',

     map { $_=~s/( +)/length $1/ge; $_; } $self->{rep}=~/.{8}/g

);