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