#!/usr/bin/perl -w
use strict;

$_=" 44120303030114030303011434054414341434143405441403030304140303030214030303040544143414543405010303030214341454340500000000000000000000000000000000000000000000";
# remove spaces
s!\s!!g;
# grab 2 chars at a time, 1st defines number of spaces, 
# second is char code. /x does nothing other than obfu
# shove the spaced but still encoded chars back into $_
$_=join'',map{m/(.)(.)/x;$_=' 'x$1.$2;}(m/(..)/g);
# tranliterate the coded chars also add newlines
y!012345! \\/\-\|\n|!;
#   0   =>  ' '
#   1   =>  '\'
#   2   =>  '/'
#   3   =>  '-'
#   4   =>  '|'
#   5   =>  '\n'
print;