<>; while(<>){ chomp; $n = join'',(0..9); $n =~ s/[$_]//g; print $n ne ''? $n: allo, "\n" }