Select Code to Download

#!/usr/bin/perl
use strict;
...
string3,string4
string1,string2,string3
string1,string3,string5

string1 3
   string2 2
...
      string5 1
string3 1
   string4 1