#!/usr/bin/perl
my $city = "Naperville";
my $cityState = "Chicago, IL";
if ( $cityState =~ /\b\Q$city\E\b/) { 
  print "They match!"; 
} else { 
  print "dont match"; 
}