in reply to if statement not working

fixed it, for stings perl uses eq