$temp =~ s/[^a-zA-Z0-9\. ]//g;
$temp =~ s/\r\t\n\f//g;