#!/usr/bin/perl

use warnings;
use strict;

while ( <> ) {
    chomp;
    (/^\d{10}$/) ? print uniq($_)+0,"\n" : die "Not 10 digits.\n";
}

sub uniq { return $_[0] !~ /(.).*\1/ }