in reply to Perl treats period as space in string

It's even worse, a dot in a regex matches any character except for a newline.

Maybe you just want to do 

use feature qw{ fc };

my $phrase = fc 'club.market';
if (-1 != index fc $string, $phrase) { ...

[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In Section Seekers of Perl Wisdom