Select Code to Download

sub nCommonSubstrLenL {
    my( $haystack, $needle, $len ) = @_;
...
    }
    return $count;
}

sub nCommonSubstrLenL2 {
    my( $haystack, $needle, $len ) = @_;
...
    }
    return $count;
}

sub nCommonSubstrGreaterLenL {
    my( $haystack, $needle, $len ) = @_;
...
EF : 2
DEF : 3
Buk:4