Of course if you want obscure you can use $|--. Consider:

print $|-- for 1 .. 4;
[download]

Prints:

1010
[download]

Although I wouldn't recommend it in a context where you wish to win friends and influence people among the bossing classes.