################################################################
#################### Digital Clock v1.0 ########################
################################################################
$m[0]='521122211132111132115111421142521132111142';$m[1]='15311'
.'5211521133114133'.'114153115134113414113153115133115';;;$m[2]=
'15311521152131131131121315321515421542311311153215143215';$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=substr($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$x45,qq{\012}if($i==0);print"\174\040",substr($~[$i],$1*
5,5),"\040",substr($~[$i],$2*5,5),(($i==2)?"\157\040":"\040"x2),
  (($i==3)?"\157\040":"\040"x2),substr($~[$i],$3*5,5),"\040",
substr($~[$i],$4*5,5),,(($i==2)?"\157\040":"\040"x2),,(($i==3)?
"\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"x45,qq{\012}
                 if($i==4);}}while(sleep(1.5));

[download]

In reply to This was a lot of fun by ninja-joe

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.