Select Code to Download

use constant T1 = '...';
use constant T2 = t1 . '...';
...

my $packed = pack ( T1, T2, T3 )[ condition() ], @bits;