PERL_Square_v1