Select Code to Download

#!/usr/bin/perl -w
use strict;
...

    return $total_support;
}

Substring to Count: AB   |  Substring to Count: BA   
                         |
...
  - CADH                 |    - CADH
Total Support: 3         | Total Support: 3
 **CORRECT**                **WRONG**

Substring to Count: BA
1 - ABCA
...
  - CADH
Total Support: 1