sub transform{
    my $string = shift;
    $string =~ tr/A-Z/a-z/;#kleinschreibung
    $string =~ tr/a-z//cd;
    $string; 
}