########################################
$f="73xx  42xxx12  x162xxxx   145x  153x
    143x  xx   xx  141  x150  xxxx  40xx
    154x  162xxxx  145x160    x40xxxx162
    x145  xx  150  xxx        164x  157x
156 x141  xx  40x  xxx        x164  x163
x165xxxx  152 x42  x40        x164  x156
x151x162  xxx 160  ";;        $e=~  s$^$
########################################
chr(oct)$eg foreach(split(/\s?x+\s?/,$f)
              );eval($e);
[download]

######################################################################
+##########
########################## Digital Clock v1.0 ########################
+##########
######################################################################
+##########
$m[0]='521122211132111132115111421142521132111142';$m[1]='153115211521
+133114133'
.'114153115134113414113153115133115';$m[2]='15311521152131131131121315
+321515421'
.'542311'.                                                            
+'31115321'
.'514321'.                                                            
+'5';;$m[3]
='153115'.                ''.                ''.                      
+'2115212'#
.'113214'.                   ''.                ''.                   
+'1144115'#
.'411515'.                      ''.                ''.                
+'3115211'#
.'321153'.                                                            
+'11'.'54'#
.'115';//;                                                            
+;;;;$m[4]=
'153215221522111332143213411542131432131113311532154115';//;;;$r=q$ _/
+\|$;$s=5;;
for($k=0;$k<$s;$k++){$x=length($m[$k]);for($i=0;$i<$x;$i=$i+2){$n=subs
+tr($m[$k],
$i,1);$c=substr($m[$k],$i+1,1);$~[$k].=substr($r,$c-1,1)x$n;;;}}do{$_=
+localtime(
time);/.*(\d)(\d):(\d)(\d):(\d)(\d).*/;for($i=0;$i<5;$i++){print"\ec",
+,qq$\075$x
45,qq{\012}if($i==0);print"\174\040",substr($~[$i],$1*5,5),"\040",subs
+tr($~[$i],
$2*5,5),(($i==2)?"\157\040":"\040"x2),(($i==3)?"\157\040":"\040"x2),su
+bstr($~[$i
],$3*5,5),"\040",substr($~[$i],$4*5,5),,(($i==2)?"\157\040":"\040"x2),
+,(($i==3)?
qq{\157\040}:qq{\040}x2),(substr($~[$i],$5*5,5)),qq{\040},substr($~[$i
+],$6*5,5),
"\040\174","\012";print"\174\040","\040"x41,"\040\174","\012","\075"x4
+5,qq{\012}
                       if($i==4);}}while(sleep(1.5));
[download]