Select Code to Download

sort {...} chomp <DATA>;

print       
    map {
        substr( $_, 16 )    
...
            : ('x' x 16) . $_
    }
    <DATA>;

sub part_sort {
    ...
}
sort part_sort <DATA>;

print sort part_sort <DATA>;