$name =~ s/[^a-zA-Z0-9\-\"\'\ \.\?\!"]//g;
$name =~ s/^\s+|\s+$//g;