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

##</code><code>##

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