rule palindrome {
    $foo := (\w+) <{ quotemeta reverse $foo }>
}