3 next unless ($mode,$file) = /^begin\s*(\d*)\s*(\S*)/;
4 open(OUT,"> $file") || die "Can't create $file: $!\n";
8 next unless int((((ord() - 32) & 077) + 2) / 3) ==
10 print OUT unpack("u", $_);
12 chmod oct($mode), $file;
13 eof() && die "Missing end: $file may be truncated.\n";