Select Code to Download

use warnings;
use strict;
...
$main::total += $count = s/w/v/g || 0;
$main::l+=length($_);
printf STDERR qq(%-32s vs %-32s: cnt=%d tot=%d l=%d\n), $d0, Dumper($_
+), $count, $main::total, $main::l;

@set PROMPT=$G
rem create binary file
...
xxd src.bin.orig
xxd src.bin
@set PROMPT=$P$G

>rem create binary file

...
0000020: 0a0d 0072 6e3a 0d0d 0a00 7669 7468 0045  ...rn:....vith.E
0000030: 4f4c 2d6c 696b 6500 7365 7175 656e 6365  OL-like.sequence
0000040: 73                                       s