my $str1 = 'stringone';
  my $str2 = 'stringtwo';
  my $l_length = 0;
  my $len1 = length $str1; 
  my $len2 = length $str2; 
  my @char1 = (undef, split(//, $str1));
  my @char2 = (undef, split(//, $str2));
  my @lc_suffix;
  my @substrings;
 
  for my $n1 ( 1 .. $len1 ) { 
    for my $n2 ( 1 .. $len2 ) { 
      if ($char1[$n1] eq $char2[$n2]) {
        $lc_suffix[$n1-1][$n2-1] ||= 0;
        $lc_suffix[$n1][$n2] = $lc_suffix[$n1-1][$n2-1] + 1;
        if ($lc_suffix[$n1][$n2] > $l_length) {
          $l_length = $lc_suffix[$n1][$n2];
          @substrings = ();
        }
        if ($lc_suffix[$n1][$n2] == $l_length) {
          push @substrings, substr($str1, ($n1-$l_length), $l_length);
        }
      }
    }
  }

##</code><code>##

open (IN, 'text.txt');
while (<IN>){
	if ($_ =~ /^(\d)\s(\d)/){
	$size = $1;
	$minmatch = $2;
	}
	else{
	push(@array, $_);
	}
}