#!perl -plaF\W
$_=(<"Why, {no,yes}, good sir or madam, this list is {not ,}in fact a palindrome">)[-/$F[3], $F[1]]/]