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