<>=~$";$"x=$`*2-3;print' 'x$q."@a "|substr"@a",$q++for@a=($')x$`