/ /&&\$s{$`}+\$t{$'}for($w,$h,@a)=<>;print$h*%s+%t*($w-%s)-$#a