if ($sentence =~ /(?(?=\w)(?:\b))$symbol(?(?<=\w)(?:\b))/) {
  # do something
}