$user =~ s/%(..)/pack("c", hex($1))/ge;
$user =~ s/[([;<>\*\|&\$!#\(\)\[\]\{\}:'"\\]//g;
if (length($user)>=16){$user=substr($user,0,16);}