my $string = 'TEST';
$string    = sprintf "%08s", $string;