I got a problem here. Please see my codes.

```
use warnings;
use strict;

###ASK IMPUT FROM USER
print "Enter the Area: ";
my $area = <>;

print "Enter the Equipment: ";
my $equipment = <>;

print "Enter the Month: ";
my $month = <>;

print "Enter the Year: ";
my $year = <>;

###SUBROUTINE (FUNCTION) TO REMOVE THE WHITESPACE
sub rem_spaces {
    my $t = shift || return(0); #Common practice: Use shift to take $t as a first parameter passed to the subroutine
    $t =~ s/^\s+//; #remove leading spaces
    $t =~ s/\s+$//; #remove trailing spaces
    return $t;
}

####VARIABLE DECLARATION

my $REMOTE_HOST = "C:\\Users\\attmsbj1\\Desktop\\pic";
my $RESULT_FOLDER = "C:\\Users\\attmsbj1\\Desktop\\RESULT";

###CREATE FOLDER IF FOLDER DOES NOT EXIST.

if(-e $RESULT_FOLDER){
    print "File exists.";
}
else {
    mkdir ($RESULT_FOLDER);
}

###OPEN THE NEW FOLDER<br>
opendir (NewFolder, $RESULT_FOLDER) or die "Couldn't open the current directory: $!";

###OPEN PHOTOS FOLDER<br>
opendir (PicFolder, $REMOTE_HOST) or die "Couldn't open the current directory: $!";
@PicFolder =<PicFolder>;

###LOOP THROUGH ALL THE PICTURES IN THE FOLDER
foreach (@PicFolder)
{
    if(###FULL STRING INPUT BY USER = PICFOLDER)
    {
        ###MOVE OR COPY THE PICTURE TO THE NEW FOLDER
    }
}

closedir PicFolder;

```

Problem now is 1) How do I print out the input given by the user into 1 string ??  

Eg. Area : 4;  

Equipment : TQC  

Month : July  

Year : 2011  

I want to print this into 4TQCJuly2011.jpg  

I'm stuck in the loop

Thanks for reading and helping.

Additional Details
My main objective is to create a perl script to

1. Ask input from user
2. Open the photo folder
3. Compare the input name(combine the input into ***\****.jpg) from the user with the picture name in the photo folder
4. If it is the same, move the picture or copy the picture to the new folder

I want the format of the input given by the user to be $area$equipment$month$year.jpg

It always print out  

4  

TQC  

JULY  

2011  

.jpg  

instead of 4TQCJULY2011.jpg (I want this result)