# perl -e 'while(<ARGV>){$.== 1 and s!.*!pack(q{C*},043,041,057,0165,0163,0162,057,0142,0151,0156,057,0160,0145,0162,0154)!e }' *