Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Parsing output from the CSV file

by GotToBTru (Prior)
on Feb 08, 2013 at 22:14 UTC ( #1017894=note: print w/replies, xml ) Need Help??


in reply to Parsing output from the CSV file

You never introduce the | character. I would suggest replacing:
print $reg_exp;
with
$accum .= "$reg_exp,";
and then when ready to output your pipe delimited expression:
$accum =~s/,$//; $accum =~ s/,/|/g; print $accum;