$\=$/;
#here something for '-a' ?
$/=chr(055);
...