for $in (1..195){ $c = 0; while($in != scalar(reverse($in)) && $c <= 100){ $in = $in + reverse($in); $c++; } print $in, $/ }