PERL_Square_v2