Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
use Data::Dumper;
...
  }
  print "Total counter: ",$counter,"\n"
}# end count_

Select or download this

Query: AB
ABCA - 1
ACDB - 1
...
CADH - 0
ABIC - 0
Total counter: 1