Select Code to Download

    #!/bin/perl -w
    $" = '-';
...
    $string = "a:b:c";
    @list = ($string =~ m/(\w):(\w)/g);
    print "list=@list\n";

    list=a-b-c-d
    list=a-b

    list=a-b-b-c