my $xax = "4444";


$xax .= XXXX;

print "$xax\n\n\n\n";