use strict;
use warnings;
use Test::More tests => 2;


my $phrase = qr/club\.market/;


unlike( 'club market', $phrase, 'not match space' );

  like( 'club.market', $phrase, 'match period' );
[download]

RESULT,

1..2
ok 1 - not match space
ok 2 - match period
[download]