#!/usr/bin/perl -w

use strict;

my $in = "abcdee3fgh1234eee";
my $out = "";

$out = join("",sort(split("",$in)));
$out =~ tr/0-9a-zA-Z//s;

print "in : $in\n";
print "out: $out\n";