print join "|", "", $list, $of, $vars, ""