trapd00r

set conceallevel=2 concealcursor=nc
syntax match spaceDots " " conceal cchar=·
hi spaceDots ctermbg=fg ctermfg=197
       

hi clear Conceal
hi Conceal ctermfg=220 ctermbg=196 cterm=boldunderlineitalicreverse

trapd00r

#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';

my @fruits = qw(orange apple pear pineapple blueberry);

for my $i(keys(@fruits)) {
  printf("%d: %s\n", $i + 1, $fruits[$i]);
}