perl -e '$x="ab"; $n= 20; @f= ($x) x $n; print join "|",@f;'
#prints
ab|ab|ab|ab|ab|ab|ab|ab|ab|ab|ab|ab|ab|ab|ab|ab|ab|ab|ab|ab