if ($prm{'name'} =~ s/[^\w \-]//g) {
    $warning .= '<LI>Illegal characters were removed from your Login Name. Only letters, numbers, spaces, underscores and dashes are allowed.';
	}