$a = "dfowusgfiwu42394353****hsdfsd";
print "$a\n";
$a =~ s/!([a-zA-Z0-9])//g;
print "$a\n";