You never introduce the | character. I would suggest replacing:

print $reg_exp;
[download]

with

$accum .= "$reg_exp,";
[download]

and then when ready to output your pipe delimited expression:

$accum =~s/,$//;
$accum =~ s/,/|/g;
print $accum;
[download]