You're using a lone y, without quotes, if the if above, and thus Perl takes it as part of a y/// transliteration. Try with qoutes. More at perlop.

Also, please have a look at Writeup Formatting Tips, code is hard to read without <code> tags =o(.