Sorry this is no coding service and these are very basic questions.

Please show us some effort to learn coding by yourself and ask then if you have problems.

Its in the perlfaq or goggle for "trimming whitespace perl".

UPDATE: an please have a look at the documentation for the commands we've shown you so far.

• chomp VARIABLE
• close FILEHANDLE
• join EXPR,LIST
• my EXPR
• open FILEHANDLE,EXPR
• print FILEHANDLE LIST