$i=<>; $a=" ##"x$i; $b="#"." #"x($i-1); $_=" a b b b b b a"; s/a/$a/g; s/b/$b/g; print;