11 lines
121 B
Perl
Executable File
11 lines
121 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
my %chars;
|
|
while(<>) {
|
|
chomp;
|
|
for (split /[0-9.]*/) {
|
|
$chars{$_} = 1;
|
|
}
|
|
}
|
|
print keys %chars;
|