$text =~ s|[^a-zA-Z0-9]||g;