my $xax = "4444"; $xax .= XXXX; print "$xax\n\n\n\n"; #### my $file = thefile; my $filetwo = $fileNumbertwo;