my $string = 'TEST';
$string .= '0000';