Just another Technical Yahoo sigs

Square

$_="just......l...!oohaytanother.acinhce";@g=qw(x y c f);$|=print"\ec";
$c=7;$d=2;$f=$y=1;s#.#${$t=$g[$i%2]}+=$d;print"\e[$y;".$x."H$&";if($j++
>${$e=$g[2+$i%2]}){$j=0;$$e--;$d=-$d if$i++%2}select$q,$q,$q,print($/x5)
/50#eg

Railway

foreach(qw{75868485 66798085737083 857068737974686677 9066738080},
$|=print"\ec"){$c=1;$r++;($a=$_)=~s#..#$z=65;select $q,$q,$q,print
("\e[$r;".$c."H".chr$z++)/200 while$z<$&;$c+=2#eg}print" !\n"

Random

$_="just     another  technicalyahoo!";$|=print"\ec";s/./push@l,$&/eg;@z
=(0)x35;{$d=int rand(35);$z[$d]?1:push@p,$d;$z[$d]=1;grep(/0/,@z)?redo:1
}foreach$d(@p){select$q,$q,$q,(print"\e[".(1+int($d/9)).";".(1+int($d%9)
)."H".$l[$d]."\e[5;0H")/100}

Anagram

$_="just another technical yahoo!";@b=sort{rand cmp rand}@a=split//;$|=
print"\ec";print@b;sub p{print"\e[$_[1];$_[0]H$_[2]"}while($e=$a[$g++]){
$f=0;{redo if$b[$f++]ne$e}$b[$f-1]=0;p($f,1,$");$i=$f-$g<0?1:-1;while($f
!=$g){select$q,$q,$q,p($f,2,$e)/20;p(($f+=$i)-$i,2,$")}p($f,3,$e.$/)}

Up-Down

- Not very exciting, but interesting encodeing

$a=q%ptsneei_o^  $a=~s#\S#push@b,$&#eg;for$a(0..8){for(0..3){$z.=$b[$a];
     r"torccyo^ $a+=9}};$|=1;$z=~s#_# #g;$z=~s#"(.*)"#'$_)/10for("'.join
     ij_t_haa!^  ('","',split//,$1).'",$/)'#e;eval'select$q,$q,$q,('.$z;
     nuahtnlh"^  %;$a=~s#\^(.*?)\n#$b.=$1;""#eg;eval$b;

Emerge

@a=(" ")x360;$b="JUST ANOTHER TECHNICAL YAHOO!";$c=165;$b=~s#.#splice@a,
++$c,1,$&#eg;$|=print"\ec";while($d<359){for(1..360){$c=chr(32+int rand(
63));if($a[$_]){print"\e[".int($_/72).";".int($_%72)."H$c";if($c eq$a[$_
]){$a[$_]=0;$d++}}}select$q,$q,$q,(print"\e[6;0H")/1000}#

Small Emerge

@a=($")x36;@b=qw(JUST ANOTHER TECHNICAL YAHOO!);$|=print"\ec";foreach(@b
){s#.#splice@a,$c++,1,$&#eg;$c=9*++$d}@b=@a;while($c){for(0..35){print(
$a[$_]?$e=chr 32+int rand 63:$b[$_]);if($a[$_]&&$a[$_]eq$e){$a[$_]=0;$c
--}print$/if(!(++$z%9))}select$q,$q,$q,(print"\e[0;0H")/1000}print$/x5#

Scroller

$d=$_="just another techical yahoo!";$|=print"\ec";s#.#push@a,$&#eg;for(
0..$#a){push @b,splice(@a,int(rand($#a)),1)}while($m ne $d){if($b[$z] eq 
substr($d,$z,1)){$z++;redo}push@b,splice(@b,$z,1);select $q,$q,$q,(print
"\e[H".($m=join"",@b).$/)/20}

Morse

print"\ec";@a=qw{aaA cAaAa ea hd ib jaC laAb nAa oC raAa sc tA ubA yAaB}
;for(split//,"5cabf078b329fb21374106fd0388"){($f=$a[hex$_]||$"x5)=~s#.# 
$r.=$&;($_=$'.$"x3)=~s*\w*($& ne uc$&?". ":"___ ")x(-64+ord uc$&)*eg#e ;
select$q,$q,$q,(print"\e[H$_$/$r$/")/10for split//}

(see this for more info)

Semaphor

Continuing in the nautical theme.

$_="a06c42e12h84i24j28l0cn05oc0r88s81t60u50y48";s#...#push@a,$&#eg;for( 
split//,"5cabf078b329fb21374106fd0388f"){$_=$a[hex$_]||$"."0"x8;s#.#$r.=
$&;""#e;print"\ec";@b=qw{_ \ | / _ / | \ };$c=0;$_=unpack B8,pack v,hex;
s#.#printf"%s%s",($&?$b[$c]:$"),$c++==4?$/.$":""#eg;sleep print"$/$r$/"}

(see this for more info)