$match =~ m/^(#)+[^#])/;
$length = $1;

getline(a:lnum) =~ 'v^(#)+[^#]'
let length = 1