print join(_$_S_E_P, _@_A_R_R_A_Y), _$_T_E_R_M;

# or

{
    local($,,$/) = (_$_S_E_P,_$_T_E_R_M);
    print _@_A_R_R_A_Y;
}