if ('"' eq substr($word, 0, 1) && '"' eq substr($word, -1, 1)) {
...
}