use feature qw( fc ); if (fc($string) eq fc($phrase))