Select Code to Download

use strict;
use warnings;
...
my $b = chr(66);
my $c = chr(67);
printf ('%1$s'x2 . '%2$s'x3 . '%3$s'x4, $a, $b, $c);