Help for this page
#!/usr/bin/perl -wl use strict; ... abcde gcdabef =>1 abe lbbe =>0 forky fork =>0