use strict;
use warnings;

##</code><code>##

sub isPalindrome
{
    my $orig = shift;
    my $reversed = 0;
    my $n = $orig;
    ...

##</code><code>##

$temp++;