Select Code to Download

use 5.010;  # Allow say(). You can use print "$_\n" if you like.

...
    chomp;
    say for split /\x04/;
}