my $regex = '[^a-z!/()=?_üÜäÄöÖß:.,\-+ \d$%*€@]';
$var =~ s/$regex//ig;