#!/usr/bin/perl -l

# https://www.perlmonks.org/?node_id=11105908

use strict;
use warnings;

my $len = $ARGV[0];

my $new = '----+----|';

$_ = $new x $len;

my $i = 0;
my $ii;

s/
	\|
	(??{ 
		$i += 10;
		$ii = $i =~ s!.*(?=[^0])!!r;
		quotemeta '-' x ( -1 + length $ii );
		})
	/
	$ii
	/gex;

s/./|/;

print;