Select Code to Download

#!/usr/bin/perl
use strict;
...
print 'Word is',
      $is_palindrome ? q() : ' not',
      " a palindrome!!!\n";