in reply to the god awful =~

You are pattern matching on the letter "i". Any name with the letter "I" will trigger your program.

In Section Seekers of Perl Wisdom