Select Code to Download

require bytes;
if (length($s) > $MAX) {
    substr($s, $MAX) = ""; 
}   
$s =~ s/\X\z// until $MAX > bytes::length($s);

#!/usr/bin/env perl

...
}

exit 0;