#!/usr/bin/perl

for ($i = 100; $i < 1000; $i++) {
  for ($j = 100; $j < 1000; $j++) {
    $p = $i * $j;
    $len = length($p) / 2;
    if (substr("$p",0,$len) == substr(reverse("$p"),0,$len)) {
      if ($p > $highest) {
        $highest = $p;
        $hi = $i;
        $hj = $j;
      }
    }
  }
}

print "$hi * $hj = $highest\n";