examples/perl/asterisks-chessboard.plPerl
#!/usr/bin/perl

use warnings;

my $n=shift // die "Нужно неотрицательное число!\n";

for my $j(0..$n-1)
{
	for my $i(0..$n-1)
	{
		print((($i+$j)%2)? ' ': '*');
	}
	print "\n";
}

examples/perl/asterisks-hollow-square.plPerl
#!/usr/bin/perl

use warnings;

my $n=shift // die "Нужно неотрицательное число!\n";

print '*' x $n, "\n" if $n;

for(1..$n-2)
{
	print '*', ' ' x ($n-2), "*\n";
}

print '*' x $n, "\n" if $n>1;

examples/perl/asterisks-nested-squares.plPerl
#!/usr/bin/perl

use warnings;

my $n=shift // die "Нужно неотрицательное число!\n";

my $d;
for my $j(0..$n-1)
{
	for my $i(0..$n-1)
	{
		$d=$j;
		$d=$i if $i<$d;
		$d=$n-$j-1 if $n-$j-1<$d;
		$d=$n-$i-1 if $n-$i-1<$d;
		print($d%2? ' ': '*');
	}
	print "\n";
}