my $padded = 'ABCDEFG';
substr($padded, 2, 0) = '1';
substr($padded, 1, 0) = '2';