Select Code to Download

use strict;
use warnings;
...
    }
    print "[$str]";
}

[01234][0123456789][012345][0123456789]