$query =~ tr[ ][]s;