sub s {
    my $str = shift;
    return split /:/, $str;
}