Select Code to Download

use File::Slurper qw( read_text );
use Sort::Key     qw( rikeysort );
...
   rikeysort { ( /(\d+)%/ )[0] }
      split /^(?=>>> )/m,
         read_text( 'try3.txt' );