if(m/foo/)... tests whether the current string contains the string foo. The 'm' at the beginning gives you a choice of delimiters (you're not limited to the slashes!) The 'o' at the end makes perl compile the regexp only once.