Select Code to Download

sub minmax { ( min(@_), max(@_) ) }  # helper function

...
    }
    # and so on ...
}

#!/usr/bin/perl -w

...
5,10:10,5
12,5:6,1
8,12:1,15

   00000000011111111112
   12345678901234567890
...
13|DDDDDDDD                                                    
14|DDDDDDDD                                                    
15|DDDDDDDD