in reply to Largest palindrome number for a 3 digit product of 2 numbers

It seems much simpler to use reverse in scalar context: 
    my $rev = reverse $n;

[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

[download]

Replies are listed 'Best First'.
Re^2: Largest palindrome number for a 3 digit product of 2 numbers
by pr33 (Scribe) on Jul 06, 2017 at 06:00 UTC

    Thanks . That has helped the code to improve the execution time was getting m0.1s now using this .

[reply]

In Section Seekers of Perl Wisdom