if($who =~ /\Q$i/) { print qq(one $i); } else { print qq($i); }