And on 11 sextil 2002 said Phil Carmody: > One way: > > perl -pe '$_=y/o |./10/d?pack(B8,$_):""' perl -pe '$_=y/|.//d?pack(B8,$_):""' perl -ne 'y/|.//d&&print pack B8,$_' In perl there are 256 binary digits. (-ugene -- The uglier a man's legs are, the better he plays golf---it's almost a law. -- |-| (, \\/ellsThread Previous | Thread Next