@set PROMPT=$G
rem create binary file
perl -e "binmode STDOUT; $,=qq(\0); print qq(bin\n), qw(encoded file), qq(r:\r\0n:\n\0nr:\n\r\0rn:\r\n), qw(with EOL-like sequences)" > src.bin
rem process
perl -pi.orig pi.pl src.bin
rem show the file sizes are different
dir src.bin*
rem use xxd.exe from gvim for windows to show hexdump
xxd src.bin.orig
xxd src.bin
@set PROMPT=$P$G