use 5.10.0;
$_=join"+",map{my $n=$_*10;sprintf"    %-5s",$n%100||$n}1..22;
s/ /|   + /;  # make first blank a pipe sign
s/ /-/g;      # replace blanks with dashes
$_.='|';      # add pipe sign to the end
say;
__END__