#!/usr/bin/perl
use strict;
use warnings;

for my $cnt (0..800000){
  my $aquadrat=$cnt**2;

  my @parts = split('',$aquadrat);
  my $first = '';

  while(@parts) {

    $first .= shift(@parts);

    last if($first >= $cnt);

    next unless $first;

    last unless @parts;

    my $last = join('',@parts);

    next unless $last;

    next if($last >= $cnt);

    if($first + $last == $cnt) {

      print "$cnt**2 => $aquadrat => $first + $last\n";

      last;
    }
  }
}