print $reg_exp;

##</code><code>##

$accum .= "$reg_exp,";

##</code><code>##

$accum =~s/,$//;
$accum =~ s/,/|/g;
print $accum;