#!/usr/bin/perl -w use strict; $_=" 441203030301 1403030301143405 44143 41434 143 405 44 14 03 0303 0414 03 03 0302 1403 03 03 04 05 44 14 341 454 34 05 0103030302 14 34 145434 05 000 000 00000 00000 0000000000000000 000000000000 "; s!\s!!g;$_=join'',map{m((.)(. ))x;$_=' 'x$1.$2;}(m((..))g); y!012345! \\/\-\|\n|!;print;