G'day catfish1116,

You could use the 'i' modifier. See "perlre: Modifiers".

You might also want to capture the exact variation matched so your subsequent print is more accurate; for instance, "... until I found perl", "... until I found Perl", "... until I found pErL", etc. See "perlre: Capture groups".