sub repeated {
my@p;$_=pop()-1 for$m,$n;
$_[1]=~($~=$1.$2)&&push@p,$~while$_[0]=~/(\w+)(?=(( \w+){$n,$m}))/g;
@p
}