#!/usr/local/bin/perl


use strict;
use v5.16;

say join('|', 1,2,2,2,2);