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

print UniqueCount("1234567812") . "\n";

sub UniqueCount {
    my $string = shift;
    if ($string) {
        my %unique;
        return grep { !$unique{$_}++ } split //, $string;
    }
    else {
        return 0;
    }
}