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