Select Code to Download

#!/usr/bin/perl

...
__EOI__

print("========================\n");

========================

...
Bad text.

========================

For personal reference.
Not fully tested.
...

Remove:
    sep