s/[^[:graph:] ]//g foreach $user,$pass;