$site = "Bluff Park";
lc($site);          # converts to lowercase
$site =~ s/\s/_/g;  # substitutes spaces with _
foreach (@entries) {
  if (/^~$site/) {
    # have a match!
  }
}

##</code><code>##

/^~$site/i