by@wass80
AC
1220ms
my ($y,$x)=lines()».Int »-»2;
my $s="*"x($x+2)~"\n";
say $s~("*"~(" "x$x)~"*\n")x$y~$s28 37
************************************* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *************************************