$ perl | od -cb
use strict;use warnings;close STDERR&&open STDERR,">",\$_;
if($-=(map{++$|,warn$!?$!|=$_:$!=$_,$/}66,55,25,67)?$|:$()
{@_=map{substr($_,++$-,++$|)}split$/;print((($^O=~/win/i)?
           join(undef,@_)^'!/ ?':@_)=>"\!",$/)}
0000000   j       c   a   !  \n
        152 040 143 141 041 012
0000006