$-+=!//%push@{$-},[/\d/g]for<>;for$r(@0){map{for$@(@$r){printf"%5d",$_*$@for@$_}print$/}@1}