#!/usr/bin/perl

my %chars;
while(<>) {
  chomp;
  for (split /[0-9.]*/) {
    $chars{$_} = 1;	
  }
}
print keys %chars;