Select Code to Download

#!/usr/bin/perl
use strict;
my @palindromes = ();
...
     my $reversestring = reverse($string);
     return ( uc($reversestring) eq uc($string));
 }