$string = 'TEST';
print substr $string . '0'x8, 0, 8;

TEST0000