First off, you can get rid of the constants. For instance, here is a devious way to set $| equal to 8:

$|=chr(ord(substr("\cX\c9",-1))-(1<<6^2));++$|;
[download]

Sure, its not great for golfs, but if obfu is your goal, this can certainly make someone spend a good portion of their lunch hour just figuring out the first statement. By that same token, you can change this:

print" "x($s+$|*8),"\r"
[download]

to this:

print" "x($s+((($|^($|<<($=<<($|<<$|))))>>($=/($|<<$|<<$|)))<<$|<<$|))
+,"\r"
[download]

Not the greatest golf in the world, but hey, its sexy :)

Other than that, the program looks good. It scrolls too fast on my computer no matter how much I up the increment, but I can still see that it works. Nice job.