Select Code to Download

+{map{$_,$_*$_}grep{$_==reverse($_)&&$_*$_==reverse$_*$_}1..pop}

+{map{$_,$_*$_}grep{reverse==$_&&$_*$_==reverse$_*$_}1..pop}