my $test = "1b22a3d3cccccccba866.afgg";

(my $ordered = $test) =~ tr/abcd//cd;

print $ordered, "\n";   # badcccccccbaa