use POSIX;
use locale;

$safestring =~ s/[[:IsDigit:][:IsAlpha:]]/_/g;