Select Code to Download

sub LR_Palindrome {
    my $forward = shift;
...
    }
    return $palindrome;
}

#!/usr/bin/perl
use strict;
...
edcbabcdefedcbabcde
abcdedcbabcdefgfedcbabcdefghijklmnonmlkjihgfedcbabcdefghijklkjihgfedcb
+abcdefghijklmnoponmlkjihgfedcba
onmlkjihgfedcbabcdefghijklkjihgfedcbabcdefghijklmno

#!/usr/bin/perl
use POSIX qw(ceil);
...
    return 1 if (substr($input, $left_pos - 1, 1)
            eq substr($input, $right_pos + 1, 1));
}