if ($string =~ /^\Q$phrase\E\z/i) #### use feature qw( fc ); if (fc($string) eq fc($phrase))