16:41 >perl -Mstrict -wE "my @recs = (1, 'a', 2, 'z'); print STDOUT join('|', @recs), qq[\n];"
1|a|2|z

16:44 >

##</code><code>##

print DETAIL $Record_Detail_id."|".$NUMBER."|".$NUMBER1."|".$NUMBER2."|".$NUMBER4."|".$NUMBER5."|".$NUMBER6."|".$NUMBER12."|".$State_Province_Code."|".$Org_Id."|".$Vendor_Name."|".$Dummy_Field_7."|".$Dummy_Field_8."|".$Dummy_Field_9."|".$Dummy_Field_10."|".$Dummy_Field_11."|".$Dummy_Field_12."|".$Dummy_Field_13."|".$Dummy_Field_14."|".$Dummy_Field_15."|".$Dummy_Field_16."|".$Action_time_stamp."\n";