I think you want(?) this:

open my $fh,"<","textfile";
my @lines = <$fh>;
close $fh;
print join "|", @lines;
[download]

untested!

Thx, but what can we do if the name contains a leading space or trailing space and I want to delete those spaces?

Thx for your help.

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

Cheers Rolf

thx for doing my homework! :)

This is FAQ, like, every other day FAQ :) . Use Text::CSV or Text::xSV or split :)

Examples at

• extracting data from file
• extracting data from a file
• Split function
• Time Intervals
• Trouble splitting pipe delimited
• Merge two files with similar column entries
• Opening multiple files ( csvpaste.pl )
• Open multiple file handles?
• X, Y Table structure
• How to extract the particular residues from PDB files(text csv split hash bioperl)
• Select only desired features from a text (text csv split hash bioperl)
• Sort on Table headers (text csv split hash bioperl)
• I need help joining tab-delimited files/tables!
• split then join based on common value in field
• Smart way to read a file vertically?
• reformatting tab delimited file
• edit a CSV and "in-place" replacement
• Re: Reversing a mysql table, transpose-tsv -- invert a tab-delimited table

• Text::CSV

  examples/csv2xls	Script to onvert CSV files to M$Excel
  examples/csv-check	Script to check a CSV file/stream
  examples/csvdiff	Script to shoff diff between sorted CSV files
  examples/parser-xs.pl	Parse CSV stream, be forgiving on bad lines

Or this:

chomp( my @names = <DATA> );
$" = "|";
print "@names";

__DATA__
Matei
Janov
rebas
yoni
[download]

Use something like:

print join ("|", $name1, $name2);
[download]

Thx, but how can i delete a leading spaces or trailing space from the names, Is it possible?

Thx for your help.

Thx, but how can i delete a leading spaces or trailing space from the names, Is it possible?

It is FAQ, and search is for everyone  [delete leading trailing spaces] [trailing spaces] [lead trail space] delete leading trailing spaces trailing spaces lead trail space -> trim leading & trailing whitespace, remove both leading and trailing spaces, Strip leading and trailing whitespace from a string.

Have a look at regexes

print join ("|", $names1, $names2);
[download]

cheers (/p>

You better understand the question and write an answer. Don't waste your time in posting waste.... :D